Создание огромного txt файла на Delphi 7

unit FileGenerator;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    btnGenerate: TButton;
    ProgressBar: TProgressBar;
    lblStatus: TLabel;
    edtFileSize: TEdit;
    lbl1: TLabel;
    Label1: TLabel;
    procedure btnGenerateClick(Sender: TObject);
  private
    procedure GenerateFile(const FileSize: Int64);
    function GenerateRandomString: string;
  public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btnGenerateClick(Sender: TObject);
var
  FileSize: Int64;
begin
  FileSize := StrToInt64(edtFileSize.Text) * 1024 * 1024;
  lblStatus.Caption := 'Генерация файла...';
  GenerateFile(FileSize);
end;
 
procedure TForm1.GenerateFile(const FileSize: Int64);
var FileStream: TFileStream;
    Buffer, Line: string;
    TotalBytesWritten: Int64;
begin
  Randomize;   
  FileStream := TFileStream.Create('output.txt', fmCreate);
  try
    TotalBytesWritten := 0;
    ProgressBar.Max := FileSize;
    while TotalBytesWritten < FileSize do
    begin
      Line := IntToStr(Random(1000000)) + '^' + GenerateRandomString + sLineBreak; 
      Buffer := Line;
      FileStream.WriteBuffer(Pointer(Buffer)^, Length(Buffer));
      TotalBytesWritten := TotalBytesWritten + Length(Buffer);
      ProgressBar.Position := TotalBytesWritten;
      Application.ProcessMessages; 
    end;
  finally
    FileStream.Free;
    lblStatus.Caption := 'Файл сгенерирован!'; 
  end;
end;
 
function TForm1.GenerateRandomString: string;
const Chars: array[0..25] of Char = ('А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё', 'Ж', 'З',
                                     'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р',
                                     'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш');
var i: Integer;
begin
  Result := '';
  for i := 1 to Random(10) + 5 do // длина строки от 5 до 15 символов
    Result := Result + Chars[Random(Length(Chars))];
end;
 
end.

procedure TForm1.Button4Click(Sender: TObject);
var
 n, i: uint32;
 f: integer;
 len: uint32;
 buff: TBytes;
 SW: TStopWatch;
begin
len := 1;
SW := TStopWatch.Create;
 for I := 1 to 100 do begin
  setlength(buff, len);
  f := FileCreate('TESTWRite.DAT');
  SW.Reset;
  SW.Start;
  for n := 1 to 100000 do begin
   FileWrite(f, Buff, 0, Length(buff));
  end;
  SW.Stop;
var Mbs := RoundTo(((Length(buff) * 100000) / 1024) / 1024, -3);
  Memo1.Lines.Add(DecodeStWtTime(SW) +' Write '+ Mbs.ToString +' Mbytes');
  FileClose(f);
  len := Len + 10; // поиграйся с размером
  sleep(20); // а вот сдесь изменения тебя удивят как это влияет на стабильность времени
 end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    function GenerateRandomString: string;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TForm1.GenerateRandomString: string;
const Chars: array[0..25] of Char = ('А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё', 'Ж', 'З',
                                     'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р',
                                     'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш');
var i: Integer;
begin
  Result := '';
  for i := 1 to Random(10) + 5 do // длина строки от 5 до 15 символов
    Result := Result + Chars[Random(Length(Chars))];
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var StartTime, EndTime: Cardinal;
    Buffer: AnsiString;
    FileHandle: Integer;
    I: Integer;
    TotalBytesWriten: Int64;
    FileSize: Int64;
begin
  FileSize := StrToInt64(Edit1.Text) * 1024 * 1024;
  Randomize;
 
  FileHandle := FileOpen('testfile.txt', fmOpenWrite or fmShareDenyNone);
  if FileHandle = -1 then
    FileHandle := FileCreate('testfile.txt');
 
  TotalBytesWriten:=0;
 
  StartTime := GetTickCount;
 
  while TotalBytesWriten<FileSize do
  begin
    Buffer := IntToStr(Random(1000000))+'^'+GenerateRandomString+#13#10;
    FileWrite(FileHandle, PAnsiChar(Buffer)^, Length(Buffer));
    TotalBytesWriten:=TotalBytesWriten+Length(Buffer);
  end;
 
  EndTime := GetTickCount;
 
  FileClose(FileHandle);
 
  Memo1.Lines.Add('Время записи строк: ' + IntToStr(EndTime - StartTime) + ' миллисекунд');
end;
 
end.

setlength(Buffer, 1);

TotalBytesWriten:=0;

procedure TForm1.Button1Click(Sender: TObject);
var StartTime, EndTime: Cardinal;
    Buffer: AnsiString;
    FileHandle: Integer;
    I: Integer;
    TotalBytesWriten: Int64;
    FileSize: Int64;
begin
  FileSize := StrToInt64(Edit1.Text) * 1024 * 1024;
  Randomize;
 
  FileHandle := FileOpen('testfile.txt', fmOpenWrite or fmShareDenyNone);
  if FileHandle = -1 then
    FileHandle := FileCreate('testfile.txt');
 
  TotalBytesWriten:=0;
 
  setlength(Buffer, 1);
 
  StartTime := GetTickCount;
 
  while (TotalBytesWriten<FileSize) do
  begin
    for i:=1 to 10 do
    begin
      Buffer :=Buffer+ IntToStr(Random(1000000))+'^'+GenerateRandomString+#13#10;
    end;
    FileWrite(FileHandle, PAnsiChar(Buffer)^, Length(Buffer));
    TotalBytesWriten:=TotalBytesWriten+Length(Buffer);
    Application.ProcessMessages;
  end;
 
  EndTime := GetTickCount;
 
  FileClose(FileHandle);
 
  Memo1.Lines.Add('Время записи строк: ' + IntToStr(EndTime - StartTime) + ' миллисекунд');
end;

  Buffer := IntToStr(Random(1000000))+'^'+GenerateRandomString+#13#10;
    FileWrite(FileHandle, PAnsiChar(Buffer)^, Length(Buffer));

 while (TotalBytesWriten<FileSize) do
  begin
    for i:=1 to 2 do Buffer:=Buffer+GenerateRandomString;
    FileWrite(FileHandle, PAnsiChar(Buffer)^, Length(Buffer));
    TotalBytesWriten:=TotalBytesWriten+Length(Buffer);
    Application.ProcessMessages;
  end;

Buffer:=Buffer+

IntToStr(Random(9))+

Chr(48 + Random(9))