[lmikle]

Код:

procedure TCallAlertForm.FormMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  FIsMove := True;
  FDragPoint := Point(X , Y );
end;

procedure TCallAlertForm.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  If FIsMove Then
    Begin
      Self.Left := Self.Left + x - FDragPoint.X;
      Self.Top := Self.Top  + y - FDragPoint.y;
    End;
end;

procedure TCallAlertForm.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FIsMove := False;
end;

+ в форме объявляешь 2 переменные (внутри класса формы!!!):

Код:

    FIsMove : Boolean;
    FDragPoint : TPoint;

Двигает форму, которая вообще сдизайнена без заголовка.

ЗЫ. Кажется, я полняй код этой формы уже когда-то сюда постил. Люди, перед тем, как спрашивать, делайте поиск по форуму!!!