Cursor verschwindet in TEdit nach Form.Show

[vt670]

Hallo,

in einem "onEnter" eines TEdit möchte ich Fenster anzeigenn und anschliessend wieder zurück zum Edit.
Dummerweise wird in dem Edit anschliessend kein Cursor angezeigt.

Delphi-Quellcode:

procedure TForm1.EditEnter(Sender: TObject);
VAR
P : TPoint;

begin
IF NOT ShortCutForm.Visible
   THEN
   ShortCutForm.Show;
Application.ProcessMessages;


IF Edit.CanFocus
   THEN
   Edit.SetFocus;

Application.ProcessMessages;
// vergebliche versuche grrrrrr
Edit.Text := '123456';
Edit.SelStart  := 1;
Edit.SelLength := 3;
Edit.Refresh;
Edit.Cursor := crDefault;
GetCaretPos( P );
ShowCaret(Edit.Handle);
Form1.Refresh;
end;

Wenn ich das Form jedoch anklicke und anschliessend das Edit im Hauptform anklicke wird der Cursor angezeigt.