Подсчет смещения строк и байт в этих строках

unit H1Z1_LC;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, System.RegularExpressions, md5;
 
type
  TForm5 = class(TForm)
    mmo1: TMemo;
    mmo2: TMemo;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    lbl1: TLabel;
    edt1: TEdit;
    pb1: TProgressBar;
    dlgOpen1: TOpenDialog;
    dlgSave1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form5: TForm5;
  ProcessCancel: Boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm5.btn1Click(Sender: TObject);  // Открыть файл
begin
mmo1.Clear;
mmo2.Clear;
mmo2.ReadOnly:= True;
btn2.Caption:= 'Запуск';
btn2.Enabled:= False;
btn3.Enabled:= False;
pb1.Position:= 0;
dlgOpen1.Filter:='Data Files|*.dat';
if dlgOpen1.Execute then begin
mmo1.Lines.LoadFromFile(dlgOpen1.FileName); // Показываем пользователю содержимое DAT файла
// Создание шаблона для DIR файла
mmo2.Lines.Add('## CidLength:   88');
mmo2.Lines.Add('## Count:   2897');
mmo2.Lines.Add('## Date:    Wed Feb 11 17:45:29 PST 2015');
mmo2.Lines.Add('## Game:    ND');
mmo2.Lines.Add('## Locale:  en_US');
mmo2.Lines.Add('## MD5Checksum: '+MD5DigestToStr(MD5File(dlgOpen1.FileName))); // Читаем хэш сумму DAT файла и записываем её сюда
mmo2.Lines.Add('## T4Version:   Unknown');
mmo2.Lines.Add('## TextLength:  457');
mmo2.Lines.Add('## Version: 2.1.886508');
btn2.Enabled:= True;
edt1.Enabled:= True;
end;
end;
 
procedure TForm5.btn2Click(Sender: TObject); // Конвертировать
var
ms: TMemoryStream;
re: TRegEx;
s, s1: RawByteString;
mc: TMatchCollection;
i, len, n: Integer;
begin
  ProcessCancel:= False; // Процесс конвертирования запущен
  btn1.Enabled:= False;
  btn2.Enabled:= False;
  btn2.Caption:= 'Подождите...';
  btn3.Enabled:= True;
  btn3.Caption:= 'Отмена';
  edt1.Enabled:= False;
  mmo2.ReadOnly:= True;
 
  n:= StrToInt(edt1.Text);             // Чтение числа из Edit NumberOnly
  ms:= TMemoryStream.Create;           // Если в файле присутствует кириллица (что нам очень нужно), то весь блок зависает, а затем выдаёт ошибку Out Of Memory
  ms.LoadFromFile(dlgOpen1.FileName);  // Файл должен загружаться как UTF-8 BOM, но похоже он так не загружается.
  ms.Position:= n;
  SetLength(s, ms.size - ms.Position);
  CopyMemory(PAnsiChar(s), ms.Memory, Length(s));
  ms.Free;
  re.Create('([0-9]+)[\t|\s]+.*');
  mc := re.Matches(s);
  pb1.Max:= mc.Count - 1;
  pb1.Position:= 0;
    for i := 0 to mc.Count - 1 do
    begin
    Application.ProcessMessages;
    if ProcessCancel=False then begin
    s1 := mc[i].Value;
    len := Length(s1);
    s1 := mc[i].Groups[1].Value;
    mmo2.Lines.Add(s1 + #9 + IntToStr(n) + #9 + IntToStr(len) + #9 + 'd');
    n:= n + len + 2;
    pb1.Position:= pb1.Position + 1;
    end
    else
    begin
    pb1.Position:= 0;
    btn3.Enabled:= False;
    btn3.Caption:= 'Сохранить';
    btn1.Enabled:= True;
    btn2.Caption:= 'Запуск';
    mmo1.Clear;
    mmo2.Clear;
    Exit;
    end;
    end;
    btn3.Enabled:= True;
    btn3.Caption:= 'Сохранить';
    btn1.Enabled:= False;
    btn2.Caption:= 'Готово';
    btn1.Enabled:= True;
    ProcessCancel:= True;
    mmo2.ReadOnly:= False;
end;
 
 
procedure TForm5.btn3Click(Sender: TObject);
begin
if ProcessCancel=False then begin
ProcessCancel:= True;
btn1.Enabled:= True;
btn2.Enabled:= False;
mmo2.ReadOnly:= True;
btn2.Caption:= 'Запуск';
btn3.Caption:= 'Сохранить';
end
else
begin
dlgSave1.Filter:='DIR Files|*.dir';
if dlgSave1.Execute then begin
mmo2.Lines.SaveToFile(dlgSave1.FileName+'.dir'); // Этот файл должен быть в кодировке ANSI
end;
end;
end;
 
procedure TForm5.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= True;
if ProcessCancel=False then begin
if MessageBoxA(Form5.Handle, 'Вы действительно хотите закрыть конвертер? Если процесс запущен, он будет отменён', 'Предупреждение', MB_YESNO or MB_ICONWARNING) = IDNO then begin
CanClose:= False;
end
else
begin
ProcessCancel:= True;
end;
end;
end;
 
procedure TForm5.FormCreate(Sender: TObject);
begin
mmo1.Clear;
mmo2.Clear;
edt1.Text:= '3';
ProcessCancel:= True; // Конвертация ещё не выполняется.
end;
 
end.