procedure TForm1.BitBtn1Click(Sender: TObject);
var searchResult : TSearchRec;
begin
   Randomize;
   if (TypeProxy<>0) then
    ProxyList.LoadFromFile(ExtractFilePath(Application.ExeName)+'proxy.txt');

   Follow:=CheckBox2.Checked;
   Followname:=Edit2.Text;

   Avatar:=CheckBox1.Checked;
   Description:=CheckBox4.Checked;
   if Description then
    begin
     Location:=LabeledEdit1.Text;
     Site:=LabeledEdit2.Text;
     About:=LabeledEdit3.Text;
    end;

   ProxyGlob:=-1;
   AssignFile(Accounts,ExtractFilePath(Application.ExeName)+'accounts.txt');

   NameList.Clear;
   NameList.LoadFromFile(ExtractFilePath(Application.ExeName)+'name.txt');

   if CheckBox1.Checked then
    begin
     Avatar:=true;
     AvatarList.Clear;
     if FindFirst('avatars\*.*', faAnyFile, searchResult) = 0 then
      begin
       repeat
        if (searchResult.Name<>'..') and (searchResult.Name<>'.') then
         AvatarList.Add(searchResult.Name);
       until FindNext(searchResult)<>0;
      end;
     if AvatarList.Count=0 then
      begin
       Avatar:=false;
       CheckBox1.Checked:=false;
      end;
    end
   else Avatar:=false;

   TCheckThread.Create(false);
end;

procedure TCheckThread.Execute;
var HTTP: TIdHTTP;
      IdSocksInfo: TIdSocksInfo;
      IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
      ProxyLoc:integer;
      Page,Page2,fcaptcha,twname, twpass,twfullname:string;
      s:utf8string;
      multi: Tidmultipartformdatastream;
      error:boolean;
      Data: TStringList;
      MS:TMemoryStream;
      pic: TGifImage;
      ftp: TIdFTP;

begin
ftp:=TIdFTP.Create;
   while true do
   begin
    second:=false;
    Http := TIdHTTP.Create(nil);
    Http.AllowCookies:=true;
    with Http.Request do
    begin
     UserAgent:='Opera/9.80 (Windows NT 6.0; U; ru) Presto/2.2.15 Version/10.10';
     Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
     AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
     AcceptCharset:='windows-1251, utf-8, utf-16, *;q=0.1';
     ContentType:='application/x-www-form-urlencoded';
    end;
    HTTP.HandleRedirects:=false;
    Http.ConnectTimeout:=30000;
    Http.ReadTimeout:=30000;
    HTTP.OnStatus:=form1.IdHTTP1Status;
    IdSocksInfo:= TIdSocksInfo.Create;
    IdSSLIOHandlerSocketOpenSSL:= TIdSSLIOHandlerSocketOpenSSL.Create(http);
    HTTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL;

   CS.Enter;
    if (TypeProxy<>0) then
     begin
      inc(ProxyGlob);
      if ProxyGlob>=ProxyList.Count then ProxyGlob:=0;
      ProxyLoc:=ProxyGlob;
      Form1.Memo1.Lines.Add('Используем прокси: '+ProxyList[ProxyLoc]);
      if TypeProxy=1 then
       begin
        HTTP.ProxyParams.ProxyServer:=Copy(ProxyList[ProxyLoc],1,Pos(':',ProxyList[ProxyLoc])-1);
        HTTP.ProxyParams.ProxyPort:=StrToInt(Copy(ProxyList[ProxyLoc],Pos(':',ProxyList[ProxyLoc])+1,Length(ProxyList[ProxyLoc])-Pos(':',ProxyList[ProxyLoc])));
       end
      else if TypeProxy=2 then
       begin
        IdSocksInfo.Version:=svSocks4;
        IdSocksInfo.Host:=Copy(ProxyList[ProxyLoc],1,Pos(':',ProxyList[ProxyLoc])-1);
        IdSocksInfo.Port:=StrToInt(Copy(ProxyList[ProxyLoc],Pos(':',ProxyList[ProxyLoc])+1,Length(ProxyList[ProxyLoc])-Pos(':',ProxyList[ProxyLoc])));
        IdSocksInfo.Authentication:= saNoAuthentication;
        IdSSLIOHandlerSocketOpenSSL.TransparentProxy:=IdSocksInfo;
        HTTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL;
        IdSSLIOHandlerSocketOpenSSL.ConnectTimeout:=30000;
        IdSSLIOHandlerSocketOpenSSL.ReadTimeout:=30000;
       end
      else
       begin
        IdSocksInfo.Version:=svSocks5;
        IdSocksInfo.Host:=Copy(ProxyList[ProxyLoc],1,Pos(':',ProxyList[ProxyLoc])-1);
        IdSocksInfo.Port:=StrToInt(Copy(ProxyList[ProxyLoc],Pos(':',ProxyList[ProxyLoc])+1,Length(ProxyList[ProxyLoc])-Pos(':',ProxyList[ProxyLoc])));
        IdSocksInfo.Authentication:= saNoAuthentication;
        IdSSLIOHandlerSocketOpenSSL.TransparentProxy:=IdSocksInfo;
        HTTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL;
        IdSSLIOHandlerSocketOpenSSL.ConnectTimeout:=30000;
        IdSSLIOHandlerSocketOpenSSL.ReadTimeout:=30000;
       end;
     end;
    Form1.Memo1.Lines.Add('Запрос страницы регистрации');
    CS.Leave;
     error:=false;
    try
     Page:=Http.Get('https://mobile.twitter.com/signup');
    except
     error:=true;
     CS.Enter;
     Form1.Memo1.Lines.Add('Ошибка запроса');
     CS.Leave;
    end;
     Form1.Memo1.Lines.Add('запрос выполнен');
    if not(error) then
     begin
      CS.Enter;
      Form1.Memo1.Lines.Add('Запрос каптчи');
      CS.Leave;
      fcaptcha:=pars('name="captcha_challenge_field" value="',Page,'"');
      MS:=TMemoryStream.Create;
      try
       HTTP.Get('https://mobile.twitter.com/signup/captcha/'+fcaptcha+'.gif',MS);
      except
       error:=true;
       CS.Enter;
       Form1.Memo1.Lines.Add('Ошибка запроса капчи');
       CS.Leave;

      end;