Cómo simular el dragdrop de un fichero a un TWebbrowser?

[cocute]

Casi lo consigo con lo de simular clicks de ratón, pero no funciona

Código Delphi [-]
var
  point:TPoint;
 begin
  getcursorpos(point); // guardo la posición del ratón
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);// click abajo
  setcursorpos(800,point.y);  //Me muevo a la derecha a la parte del webbrowser
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); // soltar click
  setcursorpos(point.y,point.y);  //vuelvo a donde estaba

luego en el dragover del twebbrowser pongo

Código Delphi [-]
accept:=true;

Pero no funciona como debería, me sale el tipico mensaje de que si quiero abrir o guardar el archivo,
algo no hago bien