[lmikle]

А зачем так сложно?
Вот код из моего проекта - форма без заголовка, которую можно двигать по экрану за любое место:

Код:

unit CallAlertFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math, ExtCtrls, Preferences;

type
  TCallAlertForm = class(TForm)
    btClose: TButton;
    lbNumber: TLabel;
    lbNumberData: TLabel;
    lbCaller: TLabel;
    lbCallerData: TLabel;
    tmBlend: TTimer;
    procedure btCloseClick(Sender: TObject);
    procedure tmBlendTimer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    FIsMove : Boolean;
    FDragPoint : TPoint;

  protected
    { Protected declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
    procedure ResizeForData;
  end;

var
  CallAlertForm: TCallAlertForm;

implementation

{$R *.dfm}

{ TCallAlertForm }

procedure TCallAlertForm.ResizeForData;
var
  MaxWidth : Integer;
begin
  // Resize
  MaxWidth := lbNumberData.Left + Max(lbNumberData.Canvas.TextWidth(lbNumberData.Caption),
                                      lbCallerData.Canvas.TextWidth(lbCallerData.Caption));
  Self.Width := MaxWidth + 16;

  // Move to tray area
  Case PPreferences.AlertVPos Of
    avpTop : Self.Top := 2;
    avpCenter : Self.Top := Round((Screen.Height - Self.Height) / 2);
    avpBottom : Self.Top := Screen.Height - Self.Height - 2;
  End;

  Case PPreferences.AlertHPos Of
    ahpLeft : Self.Left := 2;
    ahpCenter : Self.Left := Round((Screen.Width - Self.Width) / 2);
    ahpRight : Self.Left := Screen.Width - Self.Width - 2;
  End;
end;

procedure TCallAlertForm.btCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TCallAlertForm.tmBlendTimer(Sender: TObject);
begin
  AlphaBlendValue := AlphaBlendValue + 5;
  tmBlend.Enabled := AlphaBlendValue < 255;
end;

procedure TCallAlertForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  tmBlend.Enabled := False;
end;

procedure TCallAlertForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := GetDesktopWindow;
end;

procedure TCallAlertForm.FormPaint(Sender: TObject);
begin
  Self.Canvas.Pen.Width := 5;
  Self.Canvas.Pen.Color := clSilver;
  Self.Canvas.Rectangle(Rect(0,0,Self.Width,Self.Height));
end;

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;

end.

Там еще позиционирование формы, переразмеривание под данные и плавное появление (через прозрачность). Да и еще она как бы живет сама по себе. В общем, думаю разберешься что к чему, если будут вопросы - пиши.