Edit.SelectAll beim OnEnter - Probleme

[die Suchende]

Hallo Geimende.

bestimmt ist das total einfach und ich schau nur mal wieder nicht richtig dahinter. Folgendes:

Ich habe ein Programm mit mehreren Eingabefeldern (TEdit). Ich habe mir gedacht, dass es für den Anwender bequemer ist, wenn der Text im Eingabefeld beim Reinklicken markiert wird ... analog, wenn man mit der Tab-Taste durchgeht. Das klappt aber irgendwie nicht, obwohl das Ereignis ausgelöst wird:

Delphi-Quellcode:

procedure TfrmStartseite.EditEnter(Sender: TObject);
begin
  TEdit(Sender).SelectAll;
end;

Wenn ich eine Fehlerabfrage mache geht es doch auch:

Delphi-Quellcode:

procedure TfrmStartseite.TelNummerEditChange(Sender: TObject);
begin
  if Funktionen.isPosNumeric(TEdit(Sender).Text) = false then begin
         TEdit(Sender).SelectAll;

         MessageDlg('Bitte geben Sie eine Zahl ein!'
                 + #10 + #13
                 + 'Bitte korrigieren Sie!'
                 , mtInformation, [mbOK], 0);
         exit;
  end;
end;

Verstehe ich nicht. Ich möchte das Markieren aber auch nicht in das OnClick-Ereignis nehmen, weil man ja auch mal irgendwo in den Text oder wie hier in die Telefonnummer klicken möchte, ohne dass gleich der gesamte Text markiert wird.

könnte mir mal bitte jemand auf die Sprünge helfen.

schon mal Danke
die Suchende