Как таскать форму за метку?

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

const SC_DragMove = $F012; { a magic number }

begin

ReleaseCapture;

Form1.perform(WM_SysCommand, SC_DragMove, 0);

end;

мебель малайзии и китая

создание сайтов

---