Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Заполнение полей формы в TWebBrowser методом Drag & Drop

01.01.2007
{ 
 
This example shows how to fill out fields in your webbrowser by
  dragging the content of Label1 to a field of your webbrowser
}
 
 
 
 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;

Взято с сайта: https://www.swissdelphicenter.ch