Title: move windows without a caption bar?procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);end;