Tastenkombination [Strg]+[A] für SelectAll

[Luckie]

Du musst ein großes "A" nehmen:

Delphi-Quellcode:

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