[sergeinovilozf]

Вот нашёл решение:
Создаём форму,добавляем 2 кнопки Button и WebBrauser(из вкладки интернет)

Код:

unit Unit1;                                                      
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.yandex.ru'); //открываем яндекс
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
  s: String;
  html_tag: Variant;
begin
  html_tag:= WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i:=0 to (html_tag.Length-1) do
  begin
    if html_tag.item(i).name = 'login' then  //ищем элемент с именем "login"
      html_tag.item(i).value:= 'delphi';  //и присваиваем ему значение
 
    if html_tag.item(i).name = 'passwd' then  //ищем элемент с именем "passwd"
      html_tag.item(i).value:= 'delphi';  //и присваиваем ему значение
 
    if html_tag.item(i).value = 'Войти' then //ищем элемент со значением "Войти"
      html_tag.item(i).click;  // и нажимаем на него
  end;
end;
 
 
end.

и компилируем.