Mausdrag im Twebbrowser simulieren?

[BBoy]

Ich habe es mal so probiert aber das ziehen funktioniert nicht.

Delphi-Quellcode:

procedure MoveMouse (X,Y,Speed: Integer);
var
  Maus : TPoint;
  mx, my, nx, ny, len : double;
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

  if Speed < 1 then Speed := 1;

  GetCursorPos(Maus);
  mx := maus.x;
  my := maus.y;

  While (mx<>x)OR(my<>y) Do begin
    nx := x-mx;
    ny := y-my;
    len := sqrt(nx*nx + ny*ny);

    if(len<=1)Then begin
      mx:=x;
      my:=y;
    end
    else begin
      nx := nx / (len*0.5);
      ny := ny / (len*0.5);
      mx := mx + nx;
      my := my + ny;
    end;
    SetCursorPos(Round(mx),Round(my));
    Sleep(Speed);
  end;
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

end;

Weiß jemand wie ich es hin bekomme das der Inhalt der Webbrowsers (in dem Fall ein Flash) gezogen wird. Also linke Maustaste drücken, gedrückt halten und nach rechts oder links bewegen.