TEdit komplett markieren bei Mausklick

[toms]

Delphi-Quellcode:

procedure TForm1.Edit1Click(Sender: TObject);
begin
 with (Sender as TEdit) do
 begin
   if Tag = 0 then
   begin
     Perform(EM_SETSEL, 0, -1);
     Tag := 1;
   end;
 end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  (Sender as TEdit).Tag :=  0;
end;