Как запустить несколько потоков одновременно?

TNewThread = class(TThread)
  private
    { Private declarations }
   FileCount: Integer;
   LastSym: integer;         //переменные, которые передаю в метод потока
   procedure UpdateCaption;
  protected
   procedure Execute; override;
  end;

 NewThread: array[1..2] of TNewThread;
...
 
for i:=1 to 2 do
 begin
  NewThread[i]:=TNewThread.Create(true);
  NewThread[i].FileCount:= FileCount;
  NewThread[i].LastSym:=i;
  NewThread[i].FreeOnTerminate:=true;
  NewThread[i].Resume;
  NewThread[i].Priority:=tpNormal;
 end;

{ TNewThread }
 
procedure TNewThread.UpdateCaption;
var
k, i: integer;
str_k: string;
xml, s: string;
 
begin
 for k:= 1 to FileCount  do
  begin
   str_k:= IntToStr(k);
   if str_k[length(str_k)] <> IntToStr(LastSym) then Continue;
 
   //Обрабатываем файлы процедурой Spisok
   if LastSym = 1 then Form1.Label1.Caption:= 'Обрабатываем файл '+ IntToStr(k) +' из '+IntToStr(FileCount);
   if LastSym = 2 then Form1.Label2.Caption:= 'Обрабатываем файл '+ IntToStr(k) +' из '+IntToStr(FileCount);
 
   Application.ProcessMessages;
   sleep(100);
 
   if LastSym = 1 then Form9.mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'temp\'+IntToStr(k)+'.xml', TEncoding.UTF8);
   if LastSym = 2 then Form9.mmo2.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'temp\'+IntToStr(k)+'.xml', TEncoding.UTF8);
 
   if LastSym = 1 then xml:= Form9.mmo1.Text;
   if LastSym = 2 then xml:= Form9.mmo2.Text;
 
   Spisok(xml);  //та самая ресурсная процедура, формирующая динамический список
 
   curr:=head;
   s:='';
   while Curr<>nil do
    begin
     for i:=1 to length(curr^.aff) do s:= s + Trim(curr^.aff[i-1])+'`';
     s:=s+#13#10;
     curr:=curr^.next;
    end;
 
 
       //выводим файл в csv
    if LastSym = 1 then Form1.Label1.Caption:= 'Выводим в csv файл '+ IntToStr(k) +' из '+IntToStr(FileCount);
    if LastSym = 2 then Form1.Label2.Caption:= 'Выводим в csv файл '+ IntToStr(k) +' из '+IntToStr(FileCount);
 
    sleep(100);
 
   if LastSym = 1 then
     begin
      Form9.mmo1.Text:= s;
      Form9.mmo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+ 'result\'+IntToStr(k)+'.xml', TEncoding.UTF8);
     end;
 
   if LastSym = 2 then
     begin
      Form9.mmo2.Text:= s;
      Form9.mmo2.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+ 'result\'+IntToStr(k)+'.xml', TEncoding.UTF8);
     end;
 
  end;
 
end;
 
procedure TNewThread.Execute;
begin
 Synchronize(UpdateCaption);
end;

function StrToInt(const S: string): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]);
end;

function TextToFloat(const S: string; var Value: Extended): Boolean;
begin
  Result := TextToFloat(S, Value, FormatSettings);
end;

procedure MyProc(x:Integer); inline;
begin
    // …
end;

var
 FS: TFormatSettings;
begin
  FS:=TFormatSettings.Create;
  price:= StrToFloat(st_price, fs);
end;

var
k, i: integer;
str_k: string;
xml, s: array[0..9] of string;
t: array[0..9] of TStringlist;
 
Ex, Sheet: array[0..9] of Variant;
 
begin
 for k:= 1 to FileCount  do
  begin
   Application.ProcessMessages;
 
   str_k:= IntToStr(k);
   if str_k[length(str_k)] <> IntToStr(LastSym) then Continue;
 
   ...
 
  
   CopyFile(PChar(ExtractFilePath(Application.ExeName)+'templtate\templtate.xlsx'),   
PChar(ExtractFilePath(Application.ExeName)+'result\'+Filename+ '_' + IntToStr(k) + '.xlsx'), false); //Это единственное, что работает в потоках, если остальное закомментировать
 
   Ex[LastSym]:=CreateOleObject('Excel.Application');
   Ex[LastSym].DisplayAlerts:=False;   //отключаем предупреждения Excel о сохранении
   Ex[LastSym].Workbooks.Open(ExtractFilePath(ExtractFilePath(Application.ExeName)+'result\'+Filename+ '_' + IntToStr(k) + '.xlsx'));
   Sheet[LastSym]:=Ex[LastSym].Workbooks[ExtractFilePath(Application.ExeName)+'result\'+Filename+ '_' + IntToStr(k) + '.xlsx'].ActiveSheet;
 
   for i:=0 to High(templ) do Sheet[LastSym].Cells[1, i+1]:=templ[i, 1]; //шапка таблицы
 
    //закрываем, сохранив изменения
     Ex[LastSym].ActiveWorkbook.Close(True);
     //Ex[LastSym].Visible:=True;
     Ex[LastSym].Quit;
     Ex[LastSym]:=UnAssigned;
     Sheet[LastSym]:=Unassigned;
 
  end;

TExThread = class(TThread)
  private
    { Private declarations }
   FileCount: Integer;
   LastSym: integer;
   FileName: string;
 
  protected
   procedure Execute; override;
  end;

 for i:=0 to 9 do
 begin
  ExThread[i]:=TExThread.Create(True);
  ExThread[i].FileCount:= FileCount;
  ExThread[i].FileName:= FileName;
  ExThread[i].LastSym:=i;
  ExThread[i].FreeOnTerminate:=true;
  ExThread[i].Priority:=tpNormal;
  ExThread[i].Resume;
 end;

NewThread: array[0..9] of TNewThread;

try
  ExcelApp := GetActiveOleObject('Excel.Application');
 except
  try
   ExcelApp := CreateOleObject('Excel.Application');
  except on E: Exception
  do begin
     LogMessage('Не удалось запустить Excel!'#13#10 + E.Message, lgError);
     Exit;
     end;
  end;
 end;