Hola Panasys.
Mis disculpas
. Se me escapó que en el código que pusiste se verifica que esté presionada la tecla Ctrl, para lograr el mismo efecto sería:
Código Delphi
[-]
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.