Ускорение процесса Tstringlist

procedure TForm1.Button5Click(Sender: TObject);
var
R : TRegExpr;
TStL : TStringList;
s,code : string;
index,b,i : Integer;
 
    begin
    index:=12;
      for b:=1 to index do begin
       TStL := TStringList.Create;
        TStL.LoadFromFile('temps'+inttostr(b)+ '.txt');
         R := TRegExpr.Create;
          gauge1.MaxValue:=index;
           log('Начинаю выполнять задачу номер'+inttostr(b));
 
         for i:=0 to TStL.Count -1 do  
      begin
       gauge1.Progress:=b;
       R.InputString := TStL.Strings[i];
       R.Expression := ':';
 
       if r.Exec then
      REPEAT s:=r.Match[0];
       code:=code+s+#13#10;
       Application.ProcessMessages;
      UNTIL not r.ExecNext;
      end;
 
  r.Free;
  TStL.free;
  Log('Команда '+temps +inttostr(b)+' выполнена');
  end;
 end;

var
 buff    : string;
 listFile : TStringList;
 HPing  : TMyHread;
 i         : integer;
counter: integer;
begin
 ...
 counter := 0;
 for i := 0 to listFile.Count -1 do
 begin
   Buffer := Buffer+listFile.strings[i]+#10#13; 
   if (counter = 1000) or (i = listFile.Count -1) then
   begin
     HPing := THreadPing.Create(true);
     HPing.Host   := IpListingForm.IpListMemo.Lines.Strings[i];
     HPing.Buffer := Buffer;
     HPing.FreeOnTerminate := true;
     HPing.Resume;
     counter := 0;
   end;
   counter := counter + 1;
 end;
end;

unit Unit21;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StrUtils;
 
type
  TTextMachine = class(TThread)
   Text: TStringList;
   constructor Create;
   procedure Execute; override;
   procedure Run(S: String);
  end;
 
  TForm21 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
 
  public
    { Public declarations }
  end;
 
var
  Form21: TForm21;
 
implementation
 
{$R *.dfm}
 
procedure TForm21.Button1Click(Sender: TObject);
var
  Txt: TextFile;
  S: String;
  Rows: Integer;
  TextMachine: TTextMachine;
begin
 OpenDialog1.FileName := 'H:\Old\Documents\Downloads\Kamsha_Ratkevich_Vremja_zolota_vremja_serebra.txt';
// if not OpenDialog1.Execute then Exit;
 AssignFile(Txt, OpenDialog1.FileName);
 Reset(Txt);
 Rows := 0;
 while not Eof(Txt)
 do begin
    if Rows mod 1000 = 0
    then begin
         if Assigned(TextMachine) then TextMachine.Start;
         TextMachine := TTextMachine.Create;
         end;
    ReadLn(Txt, S);
    Inc(Rows);
    TextMachine.Text.Add(S);
    end;
 if Rows mod 1000 <> 0 then TextMachine.Start;
 CloseFile(Txt);
end;
 
{ TTextMachine }
constructor TTextMachine.Create;
begin
 inherited Create(True);
 FreeOnTerminate := True;
 Text := TStringList.Create;
end;
 
procedure TTextMachine.Execute;
var i: Integer;
begin
 inherited;
 Synchronize(procedure begin Form21.Memo1.Lines.Add(Format('Start thread %d', [ThreadID])) end);
 for i := 0 to Text.Count - 1
 do begin
    Run(Text.Strings[i]);
    end;
 Synchronize(procedure begin Form21.Memo1.Lines.Add(Format('Finish thread %d Rows=%d', [ThreadID, Text.Count])) end);
end;
 
procedure TTextMachine.Run(S: String);
begin
 S := ReverseString(S);
end;
 
end.