Помогите разобраться. Нашел у вас на форуме и не помогу понять:

{ удаляем лишние пробелы }
  Repeat
    p := Pos('  ', s);
    If p > 0 Then Delete(s, p, 1)
  Until p = 0;

Удаляет ведь все пробелы из строки.

DimaD, во-первых, измени название темы и пользуйся тегами CODE...

А во-вторых, там ведь 2 пробела в Pos, а удаляется только один:

 p := Pos('  ', s); { <-- Вот тут 2 пробела }