unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls, ExtCtrls;

type
    TForm1 = class(TForm)
      mmo1: TMemo;
      btn1: TButton;
      mmo2: TMemo;
      lbl1: TLabel;
      lbl2: TLabel;
      btn2: TButton;
      btn3: TButton;
      btn4: TButton;
      grp1: TGroupBox;
      lbl3: TLabel;
      lbl4: TLabel;
      lbl5: TLabel;
      pb1: TProgressBar;
      lbl6: TLabel;
      tmr1: TTimer;
      ComboBox1: TComboBox;
      procedure btn1Click(Sender: TObject);
      procedure btn2Click(Sender: TObject);
      procedure btn3Click(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure btn4Click(Sender: TObject);
      procedure lbl6Click(Sender: TObject);
      procedure tmr1Timer(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

var
    stop:Boolean;

    Form1: TForm1;
    x:string;

implementation

{$R *.dfm}

procedure pause(p:byte);  // p - ïàóçà â ñåêóêíäàõ
var pa1:ttime;
begin
    pa1:=encodetime(0,0,p,0)+time;
    repeat
      application.processmessages;   
      sleep(10);
    until time>=pa1;
end;

procedure TForm1.btn1Click(Sender: TObject);
label tormoz;
var   i:Integer;
Browser : TWebBrowser;

begin
x:=inttostr(mmo1.Lines.count);

lbl3.Caption:='Îáùåå êîëè÷åñòâî '+x;
     
    stop:=False;
    btn1.Enabled:=False;
   pb1.Max:=mmo1.Lines.Count;
   for i:=0 to mmo1.Lines.Count do
     begin
       if stop=True then goto tormoz;
        pb1.Position:=i;
       lbl4.Caption:='Òåêóùèé '+IntToStr(i);
       lbl5.Caption:='Ïðàâèëüíûõ '+inttostr(mmo2.Lines.Count);
       browser:= TWebBrowser.Create(nil);
       Browser.Navigate('http://otvet.mail.ru/'+combobox1.Text+'/'+mmo1.lines.Strings[i]);
        

       pause(2);
        

      if Browser.LocationURL=('http://otvet.mail.ru/'+combobox1.Text+'/'+mmo1.lines.Strings[i]) then
         mmo2.Lines.Add(mmo1.lines.Strings[i]) ;
        Browser.Free;
     end;
     tormoz:

end;

procedure TForm1.btn2Click(Sender: TObject);
begin

if FileExists('list.txt') then mmo1.Lines.LoadFromFile('list.txt');
lbl3.Caption:='Îáùåå êîëè÷åñòâî '+inttostr(mmo1.Lines.count);
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
mmo2.Lines.SaveToFile('valid.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   lbl3.Caption:='Общее количество ';
   lbl4.Caption:='Текущий ';
   lbl5.Caption:='Правильных ';
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
   if form1.ClientHeight=80 then form1.ClientHeight:=391
   else form1.ClientHeight:=80;
end;

procedure TForm1.lbl6Click(Sender: TObject);
begin
stop:=True;
   btn1.Enabled:=True;
   tmr1.Enabled:=False;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
mmo2.Lines.SaveToFile('valid.txt');
end;

end.