Form schließen wenn Mauszeiger d.Form verläßt ?

[Vader]

hallo


hab folgenden code probiert aber mit einer bauchlandung

Code:

procedure TForm2.FormCreate(Sender: TObject);
var MausPos: TPoint;
    Pos1, Pos2 : integer;

begin
GetCursorPos(MausPos);
Pos1 := MausPos.x;
Pos2 := MausPos.y;

 if pos1 and pos2 < form2.left then
 form2.Close;

end;

was ist da falsch
mfg vader