간단하게 TMemo, TEdit의 커서 숨기기

커서가 생성되는 이벤트에 사용하거나

ex) KeyDown, MouseDown 등

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  HideCaret(Memo1.Handle);
end;

ApplicationEvent 컴포넌트의 OnIdle 이벤트에 넣어줍니다.

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
begin
  HideCaret(Memo1.Handle);
end;