[cecam]

Hooola!!

Hace poco encontre esta otra forma

procedure mouseDownMoveWinControl(ctrl:TWinControl);
begin
  ReleaseCapture;
  ctrl.Perform(WM_NCLBUTTONDOWN,HTCAPTION,0);
end;

aunque no se bien que diferencia hay (entre los parámetros WM_NCLBUTTONDOWN vs WM_SYSCOMMAND y HTCAPTION vs $F012) con esta otra que se comenta en el otro hilo

procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin   
   if ssCtrl in Shift 
   then begin     
         ReleaseCapture;
         (Sender as TControl).Perform(WM_SYSCOMMAND, $F012,0);
   end;
end;

Saludos!!