procedure TForm1.Memo1Click(Sender: TObject);
begin
  Memo1.SelStart:=0
end;
procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
    memo1.SelLength := 0;
end;

@ImanD: 2. buat custom Cursor yg warnanya seperti color memo 3. pke Hide Cursor