TWebBrowser paste u formu i klik na gumb

Code:

procedure TForm1.CommandStateChangeEvent(Sender: TObject; Command: Integer;
  Enable: WordBool);
begin
  case TOleEnum(Command) of
    CSC_UPDATECOMMANDS :
      begin
         if ((Sender as TWebBrowser).ReadyState = READYSTATE_COMPLETE) then
            if (((Sender as TWebBrowser).Document as IHTMLDocument2).activeElement.tagName = 'INPUT') or
               (((Sender as TmWebBrowser).Document as IHTMLDocument2).activeElement.tagName = 'TEXTAREA')
            then
                begin
                   // Ovde uradis sta zelis
                end;
      end;
  end;
end;

Code:

procedure TForm1.DocumentComplete(Sender: TObject;
   const pDisp: IDispatch; var URL: OleVariant) ;
begin
   ((Sender as TWebBrowser).Document as IHTMLDocument2).designMode := 'on';
end;

Code:

procedure ExecuteScript(doc: IHTMLDocument2; script: string; language: string) ;
begin
  if doc <> nil then
  begin
  if doc.parentWindow <> nil then
  doc.parentWindow.ExecScript(script, Olevariant(language)) ;
  end;
end;

Code:

ExecuteScript(WebBrowser1.Document as IHTMLDocument2, script, 'javascript');  

Code:

uses
  MSHTML;

procedure TForm1.CallFoo(S: string; I: Integer);
  { Calls JavaScript foo() function }
var
  Doc: IHTMLDocument2;      // current HTML document
  HTMLWindow: IHTMLWindow2; // parent window of current HTML document
  JSFn: string;             // stores JavaScipt function call
begin
  // Get reference to current document
  Doc := WebBrowser1.Document as IHTMLDocument2;
  if not Assigned(Doc) then
    Exit;
  // Get parent window of current document
  HTMLWindow := Doc.parentWindow;
  if not Assigned(HTMLWindow) then
    Exit;
  // Run JavaScript
  try
    JSFn := Format('foo("%s",%d)', [S, I]);  // build function call
    HTMLWindow.execScript(JSFn, 'JavaScript'); // execute function
  except
    // handle exception in case JavaScript fails to run
  end;
end;