[Serega]

Проверил скрипт без процедуры и с процедурой, есть такая вот ошибка »

Замените одноименную процедуру в скрипте на эту:

Код:

function DelSp(s: string): string;
begin
  StringChange(s, '  ', '');
  Result:= Trim(s);
end;