Memo - ondragstart=return false

Jak w Memo zablokować zaznaczanie tekstu?
Myślałem żeby zrobić enabled=false ale wtedy jest zablokowany scroll.
Ustawienie zaznaczenia na 0 w trakcie ruchu myszy też się nie sprawdza.
Chodzi o coś takiego jak jest w HTMLu:

Ustaw skupienie na inny komponent przy próbie zaznaczenia:

procedure Tform1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Button1.SetFocus; // na przykład na przycisk
end;

Genialne!
Wielkie dzięki =)