Form des blnkenden Textcursor bei TEdit ändern

[Willie1]

Hallo Danke TP!

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if CreateCaret(Edit1.Handle,0,10,10) <> NULL then beep;
  ShowCaret(Edit1.Handle);
end;

Dieser Code wird aktzeptiert aber das Caret ändert sich nicht. Wo muss der Code stehen, ich habe es auch mit OnEnter versucht.
(Es beept - Bei Return <> NULL ist der Aufruf erfolgreich Delphi-Hilfe)

Gruß Willie.