процедуры клавиши мыши в delphi

[echelone]

Ребят подскажите процедуры к клавишам мыши:
При нажатии левой кнопки мыши текст выравнивается по нижней кромке окна, правой - по верхней кромке, при двойном щелчке левой клавиши мыши - по центру. При двойном щелчке правой - по правой кромке.

[ZX Spectrum-128]

Типа такого нужно было?

procedure TForm1.FormClick(Sender: TObject);
var
  s:string;
begin
  s:='Hello!';
  Canvas.TextOut((Form1.ClientWidth-Canvas.TextWidth(s)) div 2,
                  Form1.ClientHeight-Canvas.TextHeight(s)+1,s);
end;

[Аватар]

OnMouseDown или OnMouseUp
Там все есть, кто чего нажал
С double-clicked повозиться придется