Здравствуйте, sgt, Вы писали:

[Skip]

Боролся с этим в свое время DestroyCaret это не выход.
Спасло только то что я не давал контролу получить фокус. Код выглядит примерно так:

procedure TExtendedRichEdit.WndProc(var Message : TMessage);
begin
  case Message.Msg of
    WM_SETFOCUS :
      if {DisableCarret} True then begin
        Message.Result := 0;
        Exit;
      end;
  end;
  inherited;
end;