Подсчет смещения строк

var
  S : String;
  Sutf8 : Utf8String; //type Utf8String = AnsiString. AnsiString - строка однобайтных символов.
  Len : Integer;
begin
  S := 'Содержание строки.'; //Исходная строка.
  Sutf8 := UTF8Encode(S);    //Получаем строку в кодировке UTF-8.
  Len := Length(Sutf8);      //Длина UTF-8 строки, выраженная в байтах.
  ShowMessage('Длина UTF-8 строки в байтах = ' + IntToStr(Len));
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  ms: TMemoryStream;
  re: TRegEx;
  s, s1: RawByteString;
  mc: TMatchCollection;
  i, len, n: Integer;
begin
  memo.Clear;
  n := 3;
  ms := TMemoryStream.Create;
  ms.LoadFromFile('en_us_data.dat');
  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);
  for i := 0 to mc.Count - 1 do
  begin
    s1 := mc[i].Value;
    len := Length(s1);
    s1 := mc[i].Groups[1].Value;
    Memo.Lines.Add(s1 + #9 + IntToStr(n) + #9 + IntToStr(len));
    n := n + len + 2;
  end;
end;

re: TRegEx;
  s, s1: RawByteString;
  mc: TMatchCollection;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, n, d: Integer;
  sL: TStringList;
begin
  n := 3;
  d := 2;
  Memo1.Clear;
  Memo1.Lines.BeginUpdate;
  sL := TStringList.Create;
  sL.LoadFromFile('D:\en_us_data.dat');
  sL.Text := StringReplace(sL.Text, #13#10#13#10, 'aa', [rfReplaceAll]);
  sL[0] := Copy(sL[0], n+1, MaxInt);
  with TStringList.Create do
  begin
    for i := 0 to sL.Count - 1 do
    begin
      CommaText := sL[i];
      Memo1.Lines.Add(Strings[0] + #9 + IntToStr(n) + #9 + IntToStr(Length(sL[i])) + #9 + 'd');
      inc(n, Length(sL[i]) + d);
    end;
    Free;
  end;
  sL.Free;
  Memo1.Lines.EndUpdate;
end;