Убрать курсор(каретку)?

[casio23]

Люди кто знает как убрать курсор(каретку) с Edit?
Я делаю так

procedure TForm1.FormPaint(Sender: TObject);
begin
  HideCaret(Edit1.Handle);
end;

Но если нажать на клавишу "фокус" остается на edit! Как снять этот "фокус" чтобы ничего н вводилось и при этом edit не был Enable:=False;

[Пепел Феникса]

перенесите фукой в другое место, к примеру на форму
Form1.SetFocus();

[casio23]

Феникс спасибо огромное, но я немножко по другому решил эту проблему

HideCarate(Edit1.Handle);
Edit1.ReadOnly := True;