[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;

И в форме не забудь объявит переменные:

Код:

FIsMove : Boolean;
FDragPoint : TPoint;