Skal bruge en Funktion

jeg er ikke god til delphi.. men måske kan du hjælep mig med at besvare dit spm :)

kan du finde ud af hvor på skærmen musen er?
altså det der 200x31  hvis du forstår??

Smid en label på en form og prøv denne kode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  SumMouseMove: extended;
  OldX,OldY,NewX,NewY: extended;
  fDX,fDY: extended;
implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  NewX := X;
  NewY := Y;
  fDX := Abs(OldX - NewX);
  fDY := Abs(OldY - NewY);
  SumMouseMove := SumMouseMove + Hypot(fDX,fDY);
  label1.Caption := FloatToStr(SumMouseMove);
  OldX := NewX;
  OldY := NewY;
end;

end.

well r >>>
procedure TForm1.Button1Click(Sender: TObject);
Var
Pos: TPoint;
begin
  GetCursorPos(Pos);
  Form1.Caption := 'Cursor =  ' + IntToStr(Pos.X) + ':' + IntToStr(Pos.Y);
end;

Denne kode fortæller curserens position.

//dl

lanstorp >>> Den virker som den skal, og dine 30 point er hjemme.

Men hvis nu jeg skal kunne fange musen på hele skræmen, hva så?
hvordan gør jeg det ?
( Den kode her, virker jo kun på min form. )

Maksimere formen eller brug Win API funktionen GetCursorPos [Lib "user32" (lpPoint As POINTAPI) As Integer] der i Delphi er mapped som procedure GetCursorPos(var P: TPoint);
Ganske som dl også skriver.

ok, takker for det.
og de 30 point.