bu kodla her bileşeni taşımanız için ayrı ayrı kod yazmanıza gerek kalmıyor
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Releasecapture;
twincontrol(sender).perform(wm_syscommand,$f012,0);
end;