[Помогите!] Срочно

[Zerokull222]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
StdCtrls, ComCtrls, Gauges, SyncObjs, sEdit;

type
TForm1 = class(TForm)
Edit1: TEdit;
UpDown1: TUpDown;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
OpenDialog1: TOpenDialog;
GoodLabel: TLabel;
BadLabel: TLabel;
IdHTTP1: TIdHTTP;
Gauge1: TGauge;
Button2: TButton;
sEdit1: TsEdit;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

TNewThread = class(TThread)
private
FAcc : string;
FPas : string;
Rez : Integer;
protected
procedure Execute; override;
public
procedure Sync;
constructor Create(CreateSuspended: Boolean);
end;

var
Form1: TForm1;
Accounts:Tstringlist;
Thread, Acc:integer;
Work:boolean;
CS:TcriticalSection;
GoodFile, BadFile: textfile;
CurAcc,o,z:integer;
implementation

{$R *.dfm}

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
if OpenDialog1.Execute then
begin
Accounts.Clear;
Accounts.LoadFromFile(OpenDialog1.FileName);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'good.txt');
Rewrite(GoodFile);
Closefile(GoodFile);
Assignfile(BadFile, ExtractFilePath(Application.ExeName)+'bad.txt');
Rewrite(BadFile);
Closefile(BadFile);
GoodLabel.Caption:='0';
BadLabel.Caption:='0';
Gauge1.MaxValue:=Accounts.Count;
Gauge1.Progress:=0;
Acc:=-1;
Work:=true;
for Thread:=1 to strtoint(Edit1.Text) do
TNewThread.Create(false);
Thread:=strtoint(Edit1.Text);
end;

procedure TNewThread.Execute;
var CurAcc:integer;
data:Tstringlist;
HTTP: TIdHTTP;
S : String;
begin
while Work do
begin
CS.Enter;
Inc(Acc);
if acc CS.Leave;
if Work then
begin
FAcc:= Copy(mail[CurAcc],1,Pos(form1.sEdit1.Text,mail[CurAcc])-1);
FPas:= Copy(mail[CurAcc],Pos(form1.sEdit1.Text,mail[CurAcc])+1,Length(mails[CurAcc]));
HTTP:=TIdHTTP.Create(nil);
HTTP.HandleRedirects := true;
try
response:=send('GET','http://store.steampo....l/?email=' FAcc);
except
end;
if Pos('{"bAvailable":false}', s)<>0 then
Rez:=1
else
Rez:=2;
end;
Synchronize(Sync);
end;

dec(Thread);
if Thread=0 then ShowMessage('OK');
end;

procedure TNewThread.Sync;
begin
case Rez of
0:begin
Accounts.Add(FAcc+';'+FPas);
end;
1:begin
Append(GoodFile);
Writeln(GoodFile,FAcc+';'+FPas);
Closefile(GoodFile);
Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.GoodLabel.Caption)+1);
Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1;
end;
-1:begin
Append(BadFile);
Writeln(BadFile,FAcc+';'+FPas);
Closefile(BadFile);
Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.BadLabel.Caption)+1);
Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1;
end;
end;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Accounts.Free;
CS.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Accounts:=Tstringlist.create;
CS:=TcriticalSection.create;
end;
end.

Я не могу понять какой переменной не хватает!
все говорять не хватает переменной.

[mad_cat]

Код отформатируй нечитабельно нифига!
Делфи чего сказала?

[Роспотребнадзор]

Цитата: Сообщение от Zerokull222 response:=send('GET','http://store.steampo....l/?email=' FAcc);

response:=HTTP.GET('[Ссылки могут видеть только зарегистрированные пользователи. ]'+FAcc);

Еще ошибка тут:

Цитата: Сообщение от Zerokull222 Rez:=2;

Заменить на Rez:=-1;

Добавлено через 14 минут
И еще тут ошибка:

Цитата: Сообщение от Zerokull222 if Pos('{"bAvailable":false}', s)<>0 then

Заменить на:

Цитата: if Pos('{"bAvailable":false}',response)<>0 then