Fenster ohne Rahmen (StayOnTop) verschwindet

[hathor]

Geht's nicht einfacher?

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
VAR   MyMouse : TPoint;
begin
      MyMouse := Mouse.CursorPos;
      Label1.Left:=  MyMouse.X-100;
      Label1.Top:= MyMouse.y-100;
end;