function RepSpToTabs(const str: string): string;
var
  l, r, c: Integer;
  w: Boolean;
begin
  l := Length(str); // Узнаём длину строки
  SetLength(Result, l); // Увеличиваем результат строки до длины самой строки

  w := False; // Ставим какой - то флаг в неправду (Пока какой, не знаем - смотрим дальше)
  r := 1; // Бла бла
  c := 1;  // Бла бла
  while r <= l do // Гоним цикл, пока r не будет больше или ровно l
  begin
    if w and (str[r] = ' ') and (str[r + 1] = ' ') then // Наш флаг непонятный должен быть в true и спереди два пробела. 
    begin  
      // Ура, выше условие совпала 
      Result[c] := #$9;  // Заменяем 1 символ 
      inc(r, 2); // Скипываем два пробельных символа. 
      while str[r] = ' ' do // Есть ещё пробелы ? Долой их!
        inc(r); 
    end
    else
    begin
      // Увы - условие не совпала
      Result[c] := str[r]; // Пишем текущий стэк строки, в текущий стек результата функции 
      w := str[r] <> ' '; // ... Ой! Вот для чего флаг. Если текущий символ был не пробел, он будет TRUE
      inc(r); // бла бла 
    end;
    inc(c); // бла бла 
  end;
  SetLength(Result, r - 1); // Уменьшим длину строки
end;

  SetLength(Result, c - 1);

               С.    Л.    З.    C.    В. ЛС               Фамилия         Имя            Отчество          Дата        Осн. документ
Серия,       Личный номер       Дата         Дата  Дата рег. по ПрТипДатаДаДата        Адрес ЛС