//------------------------------------------------------------------------------------------
procedure TMainForm.MainProcess(Sender: TObject);
var
SizeOriginal, SizePereveden: Integer;
Address: Integer;
SizeFraza: Integer;
NumberString: Integer; // Номер строки Перевода
i: Integer;
FrazaOk: Boolean; // Флаг найденного различия в фразах
begin
     MainMemo.Lines.Clear;
     // Считываем имена файлов из Полей редактирования (возможно редактировались!)
     FullOriginalFileName := FileBinOriginalEdit.Text;
     FullPerevedenFileName := FileBinPerevedenEdit.Text;
     FullPerevodFileName := DirPerevodEdit.Text + PerevodFileNameEdit.Text;

     try
          FOriginal:=TFileStream.Create(FullOriginalFileName, fmOpenRead, fmshareCompat);
          SizeOriginal := FOriginal.Size;
          FPereveden:=TFileStream.Create(FullPerevedenFileName, fmOpenRead, fmshareCompat);
          SizePereveden := FPereveden.Size;

          if SizeOriginal <> SizePereveden then
               begin  MainMemo.Lines.Add('Длины BIN-файлов НЕ РАВНЫ! Продолжение Невозможно!');
                      Exit;
               end;
          AddressFiles := 0;
          NumberString := 0;

          while AddressFiles < SizeOriginal do
               begin
                    TwoBytesRead(MainForm);  // Читаем ISimvol и PSimvol

                    if (ISimvol=0) and (PSimvol=0) then
                         begin
                              Address := AddressFiles;
                              SizeFraza := 1;
                              Inc(AddressFiles);
                              if AddressFiles >= SizeOriginal then Exit;

                              TwoBytesRead(MainForm);  // Читаем ISimvol и PSimvol

                              if (ISimvol<>0) and (PSimvol<>0) then
                                   begin
                                        FrazaOk:=False; // Сбрасываем флаг перед анализом.
                                        repeat
                                             if ISimvol<>PSimvol then FrazaOk:=True; // Нашли Разные байты в фразах

                                             Inc(SizeFraza);
                                             Inc(AddressFiles);

                                             if AddressFiles >= SizeOriginal then Exit;

                                             TwoBytesRead(MainForm);  // Читаем ISimvol и PSimvol
                                        until (ISimvol=0) and (PSimvol=0);

                                        if FrazaOk=True then
                                             begin
                                                  Inc(SizeFraza);
                                                  Inc(NumberString);

                                                  // Первые два Символа строки: "*#"
                                                  MainMemo.Lines.Add('*#');

                                                  // Пишем Исходные (JP_HEX)-----------------------------
                                                  for i:=0  to SizeFraza-1 do
                                                       begin
                                                            FOriginal.Seek((Address + i), soFromBeginning);
                                                            FOriginal.ReadBuffer(ISimvol,1);

                                                            MainMemo.Lines[MainMemo.Lines.Count-1]:=MainMemo.Lines[MainMemo.Lines.Count-1] +
                                                            IntToHex(ISimvol, 2);
                                                       end;
                                                  MainMemo.Lines[MainMemo.Lines.Count-1]:=MainMemo.Lines[MainMemo.Lines.Count-1] + '#';

                                                  // Пишем переведенные (ENG_HEX)------------------------
                                                  for i:=0  to SizeFraza-1 do
                                                       begin
                                                            FPereveden.Seek((Address + i), soFromBeginning);
                                                            FPereveden.ReadBuffer(PSimvol,1);

                                                            MainMemo.Lines[MainMemo.Lines.Count-1]:=MainMemo.Lines[MainMemo.Lines.Count-1] +
                                                            IntToHex(PSimvol, 2);
                                                       end;
                                                  MainMemo.Lines[MainMemo.Lines.Count-1]:=MainMemo.Lines[MainMemo.Lines.Count-1] + '#';

                                                  // Пишем исходные байты (JP_TXT)-----------------------
                                                  for i := 1 to SizeFraza-2 do
                                                       begin
                                                            FOriginal.Seek((Address + i), soFromBeginning);
                                                            FOriginal.ReadBuffer(ISimvol,1);

                                                            // Если это LF, то меняем его на "@"
                                                            if ISimvol=10 then ISimvol := 64; // 40 hex

                                                            MainMemo.Lines[MainMemo.Lines.Count-1]:=MainMemo.Lines[MainMemo.Lines.Count-1] +
                                                            AnsiChar(ISimvol);
                                                       end;
                                                  MainMemo.Lines[MainMemo.Lines.Count-1]:=MainMemo.Lines[MainMemo.Lines.Count-1] + '#';

                                                  // Пишем переведенные байты (ENG_TXT)------------------
                                                  for i := 1 to SizeFraza-2 do
                                                       begin
                                                            FPereveden.Seek((Address + i), soFromBeginning);
                                                            FPereveden.ReadBuffer(ISimvol,1);

                                                            // Если это LF, то меняем его на "@"
                                                            if ISimvol=10 then ISimvol := 64; // 40 hex

                                                            MainMemo.Lines[MainMemo.Lines.Count-1]:=MainMemo.Lines[MainMemo.Lines.Count-1] +
                                                            AnsiChar(ISimvol);
                                                       end;
                                                  MainMemo.Lines[MainMemo.Lines.Count-1]:=MainMemo.Lines[MainMemo.Lines.Count-1] +
                                                   '#' + '...You comments...' + '##';
                                             end;
                                   end;
                         end
                     else
                         begin
                              Inc(AddressFiles);
                         end;
               end;
     finally
          FOriginal.Free;
          FPereveden.Free;

          MainMemo.Lines.SaveToFile(FullPerevodFileName); // Сохраняем Мемо в файл
          MainMemo.Lines.Add('Файл-Переводов "'+ FullPerevodFileName + ' записан!');

          if DublicateDel=True then // Если флаг УдаленияДублей=1, удаляем дубли
               begin  MainMemo.Lines.Add('Удаляем дубликаты строк в Файле-Переводов... "');
                         DublicateDelete(MainForm); // Процедура удаления дубликатов строк
               end;
          MainMemo.Lines.Add('Обработка файлов завершена!');
          if NumberString=0 then MainMemo.Lines.Add('Различий в Двоичных файлах не найдено!')
          else MainMemo.Lines.Add('Найдено Фраз-Перевода: ' + IntToStr(NumberString));
     end;
end;
//----------------------------------------------------------------------------------------------------

unit MainModule;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Diagnostics, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    btnWrite: TButton;
    btnRead: TButton;
    btnReadBuffered: TButton;
    procedure btnWriteClick(Sender: TObject);
    procedure btnReadClick(Sender: TObject);
    procedure btnReadBufferedClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//==============================================================================
procedure TForm1.btnWriteClick(Sender: TObject);
var
  sw: TStreamWriter;
  I: Integer;
begin
  sw := TStreamWriter.Create('test.txt', False, TEncoding.UTF8);
  try
    // write 10K lines
    sw.WriteLine ('Hello, world');
    for I := 1 to 99999 do
      sw.WriteLine ('Hello ' + I.ToString);
 finally
   sw.Free;
 end;
 Memo1.Lines.Add ('File written');

end;
//==============================================================================
procedure TForm1.btnReadClick(Sender: TObject);
var
 fStr: TFileStream;
 Total, I: Integer;
 sw: TStopwatch;
 ch: Char;
begin
  sw := TStopwatch.StartNew;
  fStr := TFileStream.Create('test.txt', fmOpenRead);
  try
    Total := 0;
    while fStr.Read (ch, 1) = 1 do begin
      if ch = #13 then
        Inc(Total);
    end;
    Memo1.Lines.Add ('Lines: ' + Total.ToString);
  finally
    fStr.Free;
  end;
  sw.Stop;
  Memo1.Lines.Add ('msec: ' + sw.ElapsedMilliseconds.ToString);

end;
//==============================================================================
procedure TForm1.btnReadBufferedClick(Sender: TObject);
var
  fStr: TBufferedFileStream;
  Total, I: Integer;
  sw: TStopwatch;
  ch: Char;
begin
  sw := TStopwatch.StartNew;
  fStr := TBufferedFileStream.Create('test.txt', fmOpenRead);
  try
    Total := 0;
    while fStr.Read (ch, 1) = 1 do
     begin
      if ch = #13 then
        Inc(Total);
     end;
    Memo1.Lines.Add ('Lines: ' + Total.ToString);
  finally
    fStr.Free;
  end;
  sw.Stop;
  Memo1.Lines.Add ('msec: ' +   sw.ElapsedMilliseconds.ToString);

end;
//==============================================================================
end.

  const
    HexChars: array [0..15] of AnsiChar = '0123456789ABCDEF';
  var
    Buffer: TBytes;
    SStroka: AnsiString;
  ...
  SetLength(SStroka, (SizeFraza + 1) * 2);
  SStroka[1] := '*';
  SStroka[2] := '#';  
  ... 
  SetLength(Buffer, SizeFraza);
  FOriginal.Seek(Address, soFromBeginning);
  FOriginal.ReadBuffer(Buffer[0], SizeFraza); // чтение не побайтное, а одним куском
  for i := 0 to SizeFraza - 1 do begin
    SStroka[i * 2 + 3] := HexChars[Buffer[i] shr 4];
    SStroka[i * 2 + 4] := HexChars[Buffer[i] and $0F];
  end

procedure TMainForm.TestButtonClick(Sender: TObject);
var
SizeOriginal: Integer;
SizePereveden: Integer;
begin
     try
          StartTime := Now;        // Фиксируем время Старта
          // Считываем имена файлов из Полей редактирования (возможно редактировались!)
          FullOriginalFileName := FileBinOriginalEdit.Text;
          FullPerevedenFileName := FileBinPerevedenEdit.Text;
          FullPerevodFileName := DirPerevodEdit.Text + PerevodFileNameEdit.Text;

          // Для варианта с TFileStream
          FOriginal := TFileStream.Create(FullOriginalFileName, fmOpenRead, fmShareDenyNone);
          SizeOriginal := FOriginal.Size;
          FPereveden := TFileStream.Create(FullPerevedenFileName, fmOpenRead, fmShareDenyNone);
          SizePereveden := FPereveden.Size;

          AddressFiles := 0;
          ProgressBar.Max := SizeOriginal;

          //===== Встали на Начало в Обоих файлах =====
          FOriginal.Seek(AddressFiles, soFromBeginning);
          FPereveden.Seek(AddressFiles, soFromBeginning);

          while AddressFiles <= SizeOriginal-1 do
               begin
                    FOriginal.ReadBuffer(ISimvol,1);
                    FPereveden.ReadBuffer(PSimvol,1);
                    Inc(AddressFiles); // Переменная AddressFiles нужна!

                    // Ищем Нулевые байты в файлах в одинаковой позиции
                    if (ISimvol=0) and (PSimvol=0) then
                         begin
                              // Тут идет код, но сейчас пусто
                         end;
               end;
     finally
          FOriginal.Free;
          FPereveden.Free;

          EndTime := Now;  // Фиксируем время СТОПА
          DelayTime := SecondSpan(EndTime, StartTime); // Вычисляем время выполнения ПРОЦЕДУРЫ

          MainMemo.Lines.Add('Тестовый прогон файлов завершен!' + #13#10 +
                    'Время теста =' + FloatToStr(DelayTime) + ' sec');
     end;
end;

procedure TMainForm.TestButtonClick(Sender: TObject);
var
SizeOriginal: Integer;
SizePereveden: Integer;

FROriginal: TCachedReader;
FRPereveden: TCachedReader;

begin
     try
          // Считываем имена файлов из Полей редактирования (возможно редактировались!)
          FullOriginalFileName := FileBinOriginalEdit.Text;   // Эти файлы -
          FullPerevedenFileName := FileBinPerevedenEdit.Text; // уже проверялись
          FullPerevodFileName := DirPerevodEdit.Text + PerevodFileNameEdit.Text;

          FROriginal := TCachedFileReader.Create(FullOriginalFileName);
          FRPereveden := TCachedFileReader.Create(FullPerevedenFileName);
          SizeOriginal := FROriginal.Limit;
          SizePereveden := FRPereveden.Limit;

          if SizeOriginal <> SizePereveden then
               begin
                    ShowMessage('Длины BIN-файлов НЕ РАВНЫ!' + #10#13 +
                         'Продолжение процесса обработки - Невозможно!');
                    Exit;
               end;

          AddressFiles := 0;
          StartTime := Now;        // Фиксируем время Старта

          //===== Встали на Начало в Обоих файлах =====
          //FROriginal.Seek(AddressFiles, soFromBeginning);
          //FRPereveden.Seek(AddressFiles, soFromBeginning);

          while AddressFiles <= SizeOriginal-1 do
               begin
                    FROriginal.ReadData(ISimvol);
                    FRPereveden.ReadData(PSimvol);
                    Inc(AddressFiles);
                    // Ищем совпадение Нулевых байт
                    if (ISimvol=0) and (PSimvol=0) then
                         begin
                              //
                         end;
               end;
     finally
          FROriginal.Free;
          FRPereveden.Free;
          EndTime := Now;  // Фиксируем время СТОПА
          DelayTime := SecondSpan(EndTime, StartTime); // Вычисляем время выполнения ПРОЦЕДУРЫ

          MainMemo.Lines.Add('Тестовый прогон файлов в режиме "CachedBuffers" завершен!' + #13#10 +
                    'Время теста =' + FloatToStr(DelayTime) + ' sec');
     end;
end;