Pegar o left do mouse

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if button = mbRight then
      showmessage(´Pressionei o botão direito do mouse ...´+#13+13+
                   ´na coluna ´+inttostr(X)+´ e linha ´+inttostr(Y))
   else if button = mbLeft then
      showmessage(´Pressionei o botão esquerdo do mouse ...´+13+13+
                   ´na coluna ´+inttostr(X)+´ e linha ´+inttostr(Y));
end;