Memindah form yg tidak mempunyai caption bar

Untuk memindah form yang tidak mempunyai caption bar, tambahkan kode berikut pada event onMouseDown.

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

ReleaseCapture;
SendMessage(Form1.Handle, wm_SysCommand,$f012,0);

end;