[Rokuell]

0nni в твой код ещё стоит добавить

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
   begin
     ReleaseCapture;
     SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
   end;
end;

чтобы форму можно было перемещать
(при зажатой левой кнопке мыши )