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;