Wenn man auf die
Rechtsklick-Rückgängig-Funktion nicht verzichten will,
ist folgender Code besser:
Delphi-Quellcode:
procedure TForm1.Memo1DblClick(Sender: TObject);
begin
Memo1.SetFocus;
Memo1.SelectAll;
Application.ProcessMessages; //muss sein!!!
Memo1.ClearSelection;
end;