Cursor wird nicht angezeigt

[user0815]

Auf das Form:
1x TButton
1x TEdit
1x TLabel

Der Button dient als Dummy für den Focus.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := '';
  Edit1.Text := '';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Button1.SetFocus;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  if Label1.Caption = '' then Eingabe;
end;

procedure TForm1.Eingabe;
var
  Value : String;
begin
  if InputQuery('Caption', 'Prompt', Value) then
  begin
    if trim(Value) <> '' then
    begin
      Label1.Caption := Value;

      Button1.SetFocus; // Kommentar 1*)
      Edit1.SetFocus; 
    end;
  end;
end;

Ich wechsel einmal den Focus und kann weiter in das TEdit Feld eingeben, der Cursor wird dabei nicht angezeigt.

1*) = kommentiere ich die Zeile aus, so erscheint der Cursor in dem Eingabefeld aber eine Eingabe ist (ohne einen erneuten Klick ins Feld) nicht möglich.

Frage: Wie bekommen ich den blinkenden Cursor in das aktuelle Eingabefeld & kann auch was eingeben ?