fill out fields in a TWebBrowser by Drag&Drop?

procedure TForm1.FormCreate(Sender: TObject);

begin

 label1.DragMode := dmAutomatic;

end;

procedure TForm1.WebBrowserDragOver(Sender, Source: TObject; X,

 Y: Integer; State: TDragState; var Accept: Boolean);

var

 item: Variant;

begin

 //check if document is interactive

 if (Webbrowser.ReadyState and READYSTATE_INTERACTIVE) = 3 then

 begin

   item := WebBrowser.OleObject.Document.elementFromPoint(x, y);

   if Source is TLabel then

     Accept := True;

   Accept := (item.tagname = 'INPUT') and ((item.type = 'text') or

     (item.type = 'password')) or (item.tagname = 'TEXTAREA');

 end;

end;

procedure TForm1.WebBrowserDragDrop(Sender, Source: TObject; X,

 Y: Integer);

var

 item: Variant;

begin

 //check if document is interactive

 if (Webbrowser.ReadyState and READYSTATE_INTERACTIVE) = 3 then

 begin

   item       := WebBrowser.OleObject.Document.elementFromPoint(x, y);

   item.Value := label1.Caption;

 end;

end;