اينم روي خيلي از كنترلها جواب ميده :



procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  ReleaseCapture;

  BitBtn1.Perform(WM_SysCommand,$F012,0);

end;