10 миллиардов чисел

var
  q,w,e,r,t,y,u,a,s,d:integer;
begin
for q := 0 to 9 do
  for w := 0 to 9 do
    for e := 0 to 9 do
      for r := 0 to 9 do
        for t := 0 to 9 do
          for y := 0 to 9 do
            for u := 0 to 9 do
              for a := 0 to 9 do
                 for s := 0 to 9 do
                    for d := 0 to 9 do
                      begin
                      memo1.Lines.Add(IntToStr(q)+IntToStr(w)+IntToStr(e)+IntToStr(r)+IntToStr(t)+IntToStr(y)+
                      IntToStr(u)+IntToStr(a)+IntToStr(s)+IntToStr(d));
 
                      end;
memo1.Lines.SaveToFile('Строки мемо.txt');
end;

procedure TForm1.Timer4Timer(Sender: TObject);
var
  myFile: TextFile;
  s1, s2, s3:string;
begin
      Application.ProcessMessages;
      S1 := '0.'+Format('%.10d', [i]);
      S2 := '0.'+Format('%.10d', [i+1]);
      S3 := '0.'+Format('%.10d', [i+2]);
      // Попытка открыть файл Test.txt для записи
      AssignFile(myFile, '1.txt');
      // Повторное открытие для добавления в конец файла заключительной строки
      Append(myFile);
      // Write this final line
      WriteLn(myFile, S1 + ' = ' + md5UTF8(trim(S1)));
      WriteLn(myFile, S2 + ' = ' + md5UTF8(trim(S2)));
      WriteLn(myFile, S3 + ' = ' + md5UTF8(trim(S3)));
      // Закрытие файла
      CloseFile(myFile);
 
      i:=i+3;
      if i>StrToInt64(edit1.text)+200000000 then timer1.Enabled:=false;
end;

Application.ProcessMessages;

AssignFile(myFile, '1.txt');
Append(myFile);
...
CloseFile(myFile);

trim(...)

Uses System.Hash;
...
S:=S+' = '+THashMD5.GetHashString(S);

Var SW: TStopWatch;
...
SW:=TStopWatch.Create();
SW.Start();
...
SW.Stop();
ShowMessage(Format('Time (in milliseconds): %d', [SW.ElapsedMilliseconds]));

Var HashArray: Array [1..Max] Of Record Text: String; Hash: String; End;