OnClick Ereignis nur einmal auslösen

[Ritsch]

Einfach die Zuweisung auf das Event löschen.

Code:

procedure TForm1.Edit1Click(Sender: TObject);
begin
  Edit1.OnClick:= nil;
  Edit1.Text := '';
end;