procedure TMailManager.Execute;
var
i : integer;
begin
   while xWork do
   begin
// Inc(xAcc);
   Synchronize(procedure begin Inc(xAcc); end);
   if xAcc<xURLlist.Count then FAccount_int:=xAcc else xWork:=false;
   if not Suspended then
   if xWork then
   begin
    try

    FAccount:= xURLlist[FAccount_int];
    Synchronize(procedure begin form1.ListView.Items[FAccount_int].SubItems[2] := 'In progress'; end);
     if (not xExtractUrls(FAccount, URLToHTML(FAccount))) then xResult:=0   //парсит страницы URLtoHTML это idhttp.get только на чистом винсоке   
     else
     begin
     xResult:=1;
     If FPagesCount > FPageLimit then
     begin
     xResult:=2;
     FConnectionError := '8'
      end else
      begin
      for i := 1 to FPagesCount do
       begin
       Synchronize(
       procedure
       begin
       Form1.ScannedLabel.Caption:=IntToStr(StrToInt(Form1.ScannedLabel.Caption)+1);

       form1.ListView.Items[FAccount_int].SubItems[0]:=IntToStr(StrToInt(Copy(form1.ListView.Items[FAccount_int].SubItems[0],1,Pos('/',form1.ListView.Items[FAccount_int].SubItems[0])-1))+1)+'/'+Copy(form1.ListView.Items[FAccount_int].SubItems[0],Pos('/',form1.ListView.Items[FAccount_int].SubItems[0])+1,Length(form1.ListView.Items[FAccount_int].SubItems[0]));
       end);
   //    try
       begin
     FConnectionError := '5';
       if pos('http://', FPages.Strings[i]) = 1 then
       xExtractEmails(URLToHTML(FPages.Strings[i])) / майлы со страницы парсит   
       else
       xExtractEmails(URLToHTML(FAccount+'/'+FPages.Strings[i])); // Это парсит майлы со страницы   
       end;
       end;

      FMails := '';
        end;
        end;
        except
    FConnectionError := 'err_thread_lag';
       end;
       Synchronize(Sync);
      end;

   dec(xThread);
   if xThread=0 then
   begin
    ShowMessage('Finished!'); //No comments...
   end;
end;
end;