Как перемещать форму по щелчку на компоненте?

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SysCommand,$F012,0);
end;

//перемещение формы мышью без компонентов
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SysCommand,$F012,0);
end;

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     OldX:=x;
     OldY:=y;
     Flafg:=true;
end;
procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     Flafg:=false;
end;
procedure TForm1.Label1MouseMove(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     if Flag then begin
                       Form1.Left:=Form1.Left+x-OldX;
                       Form1.Top :=Form1.Top +y-OldY;
                       OldX:=x;
                       OldY:=y;
                  end;
end;