Huhu... ich wollte die Form überall verschieben was ich auch hinbekomme^^

Code:
procedure TForm1.MouseDown
   (Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer) ;
begin
   ReleaseCapture;
   SendMessage(Form1.Handle, WM_SYSCOMMAND, 61458, 0) ;
end;
mein problem ist nur, das fenster sich beim verschieben nicht aktualisiert sondern das fenster die position erst einnimmt wenn man die maus wieder loslässt...

sprich ich will das das fenster sozusagen über den bildschirm zu ziehen ist und die ganze zeit auf jeder position wo ich mich mit der maus befinde das fenster zu sehen ist ^^