Maus ausblenden trotz TWebbrowser

[Jumpy]

Habs mal versucht umzusetzen. Passiert aber nix. Weder wird der Mauszeiger versetzt, noch verschwindet er o.ä. Habs wohl nicht richtig verstanden:

Delphi-Quellcode:

procedure TBrowserMain.Timer1Timer(Sender: TObject);
var r:trect;
begin
  //Cycle
  //[...]

  //Maus Ausblendung
  if Maus = 0 then
    begin
    SetCursorPos(0,0); // oder irgendwo hin
    r := BoundsRect;
    ClipCursor(@R);// dann sperre ihn ein !
    end
  else
    Maus:=Maus-1;
end;

procedure TBrowserMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ((X-XOld)*(X-XOld)>2) And ((Y-YOld)*(Y-YOld)>2) then
    begin
    ClipCursor(nil);
    Maus:=5;
    end;
  XOld:=X;
  YOld:=Y;
end;