TEdit komplett markieren bei Mausklick

[Micha88]

Wieso nicht ganz einfach so:

Delphi-Quellcode:

procedure TForm1.Edit1Click(Sender: TObject);
begin
 Edit1.SelectAll;
end;

Edit: hatte mir das Problem nicht richtig durchgelesen ..