Delphi XE8 параллельные потоки

Procedure TForm1.BConnectClick(Sender: TObject);
var
i, e, cnt, LastNewsWorking : integer;
EF : TXLSFile;
Archivesg:TStringGrid;
key, FileToOpen : string;
begin
  isi.Host:=LES.Text;
  isi.Port:=2000;
  isi.Destination:=isi.Host+':2000';
  sb.Panels.Items[0].Text:='';
  sb.Panels.Items[4].Text:='';
  for i := 0 to 5 do sg.Cols[i].Clear;
  if KeepAliveHelo.Enabled=true then KeepAliveHelo.Enabled:=false;
  if GetDataTimer.Enabled=true then GetDataTimer.Enabled:=false;
  cnt:=strtoint(LEdit.Text);
  SetFormat(sg);  //готовим SG
  ToConnect('rus', 120);
  GetHISN(cnt);  // получаем заголовки;
  sb.Panels.Items[0].Text:='Соединение активно, режим ожидания';
  FileToOpen := BasePath + '\' + copy(AnsiReplaceText(sg.Cells[3,1],'/','.'),4,7) + '.xls';
  if FileExists(FileToOpen) = true then LoadMessageFileOrServer(FileToOpen)
    else begin
      FileToOpen := BasePath + '\' + copy(AnsiReplaceText(sg.Cells[3,sg.RowCount-1],'/','.'),4,7) + '.xls';
      if FileExists(FileToOpen) then LoadMessageFileOrServer(FileToOpen)
         else LoadAllBodyNewsFromServer(sg, cnt);
    end;
  // проверяем поле емайл, если пустое, обрабатываем сообщение
{******************************************************************************}
  TaskSendEmail := TTask.Create(procedure()
                   var i : integer;
                   begin
                     for i := 1 to cnt do begin
                        if sg.Cells[6,i] = '' then begin
                          if (AnsiPos('NT: *', sg.Cells[4,i])>0) or
                             ((AnsiPos('NT: News:', sg.Cells[4,i])>0) and
                             (AnsiPos(UpperCase('microsoft'), UpperCase(sg.Cells[5,i])) > 0)) then begin
                             sg.Cells[6, i] := SendTransport('email@email.ru', sg.Cells[1,i] + ' - ' + sg.Cells[4,i],
                             '<div align="right">' + sg.Cells[1,i] + '</div>' +
                             sg.Cells[3,i] + '  ' + sg.Cells[2,i] + '<br><br>' +
                             '<b>' + sg.Cells[4,i] + '</b><br>' +
                             '<div align="justify">' + sg.Cells[5,i] + '</div>');
                          end else sg.Cells[6, i] := 'обработанно';
                        end;
                     end;
                   end);
  TaskSendEmail.Start;
{******************************************************************************}
  LEFPath.EditLabel.Caption:='Загрузка успешно выполненна';
  if TimerForProgressBar.Enabled=false then TimerForProgressBar.Enabled:=true;
  if KeepAliveHelo.Enabled=false then KeepAliveHelo.Enabled:=true;
  if GetDataTimer.Enabled=false then GetDataTimer.Enabled:=true;
end;

procedure TForm1.ReadOnlineData();
var
sss:string;
i, cnt:integer;
begin
  try
    repeat
      sss:=isi.ReadLn(#13#10,IndyTextEncoding_OSDefault);
      if (sss<>'') and (Pos('TC:', sss)=0) then ListNews.Add(sss);
    until sss<>'';
{******************************************************************************}
    if TaskSendEmail.Status <> TTaskStatus.Running then begin
{******************************************************************************}
      sb.Panels.Items[0].Text:='Получение данных';
        if listnews.Count>0 then begin
        isi.writeln('STOP');
        isi.Readln(#13#10);
        cnt:=ListNews.Count-1;
          for i:=0 to cnt do begin
          InsertFirstRow(sg,RebrendNews(ListNews[i],1),0);
          if sg.Cells[1,1]<>'' then isi.writeln('GET '+sg.Cells[1,1])
            else showmessage('Пустой номер сообщения. Строка = 1, Столбец = 1. Метод GET невозможен');                      //запрашиваем
          sss:=isi.Readln(inttostr(strtoint64(sg.Cells[1,1]))+#13#10);
          if pos('BAD ',sss)>0 then showmessage('Сервер сообщил об ошибке в запрос GET. Запрос GET '+sg.Cells[1,1] + '; Ответ: ' + sss);
          sss:=isi.Readln('.'+#13#10,IndyTextEncoding_OSDefault);
          sss:=AnsiReplaceText(sss,Chr(13)+Chr(10),'');  //удаляем первые две пустые строки
          sss:=AnsiReplaceText(AnsiReplaceText(AnsiReplaceText(sss,'\r\n\r\n','\r\n'), '\r',Chr(13)),'\n',Chr(10));//меняем \r\n на новую строку (№13№10)
          sg.Cells[5,1]:=sss;
          GetNewsForEmail(sg, 1);
          end;
          ListNews.Clear;
          isi.writeln('STAR');
          isi.Readln(#13#10);
          isi.WriteLn('HELO');  //-
          isi.ReadLn(#13#10);  //-
          sb.Panels.Items[0].Text:='Соединение активно, режим ожидания';
        end;
    end;
  except
    ListNews.Clear;
    sb.Panels.Items[4].Text:='Ошибка';
    sb.Panels.Items[0].Text:='Соединение прекращенно';
    if isi.connected=true then isi.Close;
    if ilf.Active then ilf.Active:=false;
    for i:= 1 to sg.RowCount-1 do if sg.Cells[1,i]='' then delrow(sg,i);
    ToConnect('rus',120);
  end;
end;

procedure TheTH.OnTerminate(Sender: TObject);
begin
  FreeAndNil(Self)
end;

type
  TheTH= class(TThread)
  private
  gserv:TIdIOHandlerStack;
  CountServerCall:integer;
  protected
    procedure Execute; override;
  public
    constructor Create(serv:TIdIOHandlerStack);
    procedure OnTerminate(Sender: TObject);
end;
 
constructor TheTH.Create(serv:TIdIOHandlerStack);
begin
  inherited Create(True);
   gserv:=serv;
end;

  if TheTHWork= nil then begin
    TheTHWork:= TheTH.Create(gserv);  //создаем поток TheTH
    TheTHWork.Priority := tpNormal;
    TheTHWork.FreeOnTerminate := false;
    TheTHWork.Start;