>412
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (Key = Ord('A')) then
Memo1.SelectAll;
end;


>411
DB関係はProfessional以上なら標準で在る。
ProとEntでも差異がある。パーソナルなら諦めかな。Midas絡みも無理でしょう