Form via Label Verschieben

[1234567890987654321]

Hallo,
ich habe auf meiner Form ein Label.

Nun will ich, dass man das Formular via Label hin-und herverschieben kann:

Wenn Ich das Label nach oben ziehen will, geht nicht das Label nach oben, sondern die Form.

Danke fürs lesen.

P.S. Das hier sollte Theoretisch funktionieren, tut es aber nicht:

Code:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    Perform(wm_syscommand,$f012, 0);
end;

[DeddyH]

Schau mal hier, das ist so ähnlich: http://www.delphipraxis.net/140096-f...rschieben.html