Использовать функцию
Code
function HideCaret(hWnd: HWND): BOOL; stdcall; Пишем ее в обработчике onChange:
Code
procedure TForm1.Memo1Change(Sender: TObject);
begin
HideCaret(Memo1.Handle);
end;
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
HideCaret(Memo1.Handle);
end;
Теперь при вводе текста в Memo курсор не будет видно.
| 
