//Кнопка старта

procedure TInsform.buttonstartClick(Sender: TObject);
var
StrTime:string; i:integer; TimerId: UINT_PTR;
begin
//Проверяем спиоск прокси и аккаунтов

if (ProxyList.Text = '') or (Accounts.Text = '') then
begin
   TimerId := SetTimer(0, 0,
  2    //Секунд
   * 1000, @CloseMessageBox);
  Application.MessageBox('Вы не загрузили список прокси  и/или аккаунтов...!', nil);
  Sleep(1000);//Если список прокси пуст, то показываем сообщение и вызываем окно выбора файлов


//Если список аккаунтов  пуст, то показываем сообщение и вызываем окно выбора файлов
if (Accounts.Text = '') then begin TimerId := SetTimer(0, 0,1*1000, @CloseMessageBox);
Application.MessageBox('Загружаем список аккаунтов...', nil);KillTimer(0, TimerId);
cfe.Button.Click;
end;
if (ProxyList.Text = '') then begin TimerId := SetTimer(0, 0, 1*1000, @CloseMessageBox);
Application.MessageBox('Загружаем прокси лист...', nil);  KillTimer(0, TimerId);
 pfe.Button.Click;
 end;
 end else begin
StrTime:=TimeToStr(Time);
 for i:=1 to Length(StrTime)  do
 if StrTime[i]=':' then  StrTime[i]:='_';
begin
if site1.Checked=true then ws:='crossfire';
if site2.Checked=true then ws:='warface';
if site3.Checked=true then ws:='perfectworld';
Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'Good_'+ws+'_'+strtime+'.txt');
Rewrite(GoodFile);
Closefile(GoodFile);
Assignfile(BadFile, ExtractFilePath(Application.ExeName)+'Bad_'+ws+'_'+strtime+'.txt');
Rewrite(BadFile);
Closefile(BadFile);
gauge.MaxValue:=Accounts.Count;
gauge.Progress:=0;
Acc:=-1;
pl:=-1;
work:=true;
timer.Enabled:=true;
if  strtoint(Spinz.Text)>accounts.count then Spinz.Text:=inttostr(accounts.count);
for Thread:=1  to strtoint(Spinz.Text) do
    INsTheard.Create(false);
    Thread:=strtoint(Spinz.Text);
end; end;
end;