Текстовый редактор + своя таблица кодировки (File; //Нетипизированный файл)

procedure TForm1.Button2Click(Sender: TObject);
label // раздел объявления меток
bye;
var
                       f : File;
                 StrList : TStringList;
                       B : Byte;
                BT,s,str : String;   //строки
         s1,II,I,A,B_T,D : Integer;  //числа
       ST_N,ST,STB_N,STB : Integer;  //числа
               ZN_TBL,ZN : LongInt;
begin
  A := StrToInt(Edit1.Text);     //Данные из поля ввода Edit1 (НАЧАЛО ТЕКСТА(СМЕЩЕНИЕ))
  D := StrToInt(Edit2.Text);    //Данные из поля ввода Edit2 (размер в байтах)
  D:=A+D;
  ST:=1;
  ST_N:=0;
  stringgrid1.RowCount:=1;  
  AssignFile(f,OpenDialog1.FileName); //Связываем файловую переменную с файлом
  Reset(f,1);
  //Читаем таблицу...
  StrList:=TStringList.Create;
  StrList.LoadFromFile(OpenDialog3.FileName);
  seek(f,A);
   //Обработка до позиции в файле - D (Edit2)
   While ((Not Eof(f)) And (FilePos(f)<=D)) Do Begin
        s:='';
                       Repeat
                       BlockRead(f, B, 1); // читаем файл пока не встретится 0
                       If B<>00 Then
                               For i:=0 To StrList.Count-1 Do Begin
                               str:=StrList.Strings[i];
                               ZN_TBL:=StrToInt('$'+Copy(str,1,Pos('=',str)-1)); //Начальная позиция в исходном файле
                               Delete(str,1,Pos('=',str));
                               BT:=Copy(str,Pos('=',str)+1,Length(str)-Pos('=',str)); //Имя выходного файла
                                         if B=ZN_TBL then begin
                                         // здесь инструкции, которые надо выполнить, 
                                         // если условие истинно.
                                         S:=S+BT; // формируем имя и записываем его
                                         goto bye;
                                         end;
                               end;
                         S:=S+IntToHex(b,2); // формируем имя и записываем его
                         bye:
                       Until B=00;
                       ST_N:=ST_N+1;
                       stringgrid2.RowCount:=stringgrid2.RowCount+1;
                       stringgrid2.Cells[0,ST_N]:='Строка '+FormatFloat('000',ST_N);
                       stringgrid2.Cells[1,ST]:=S;
                       S1:=Length(StringGrid2.Cells[1,ST]);
                       stringgrid2.Cells[2,ST]:=IntToStr(S1);
                       ST:=ST+1;
     end;
     CloseFile(f); //Закрываем входной файл
     StrList.Free;
     ShowMessage('Русский шрифт загружен!') ; // Выпадает форма(c названием программы) и надписью Русский шрифт загружен!
   end;
 
end.

//Читаем таблицу (Юникод)...
  AssignFile(f,OpenDialog2.FileName);
  Reset(f,SizeOf(WideChar));
  IL:=FileSize(f);
  //Устанавливаем длину Buf1 такую,
  //чтобы в неё поместились данные из файла.
  SetLength(Buf1,IL);
  BlockRead(f,PWideChar(Buf1)^,IL,II); //Читаем файл...
  StrList.Text:=WideCharLenToString(PWideChar(Buf1),II);
  CloseFile(f); //Закрываем файл таблицы