[Alegun]

Кстати, а для баттона можно это делать вот так

Код:

procedure TForm1.Button1MouseDown(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if ssCtrl in Shift then
  begin
   ReleaseCapture;
   SendMessage((Sender as TButton).Handle, WM_SYSCOMMAND, 61458, 0);
  end;
end;

правда предварительно зажав на клаве Ctrl, а иначе кнопка будет вечным путником на форме...