Magneto, Ravilr, исправил, работает и под FPC. Приложен.
nesco, почему-то КОЛ-ская функция Parse( var S: String; const Separators: String ): String; отказалась корректно работать в цикле под FPC (пришлось самому парсить), хотя при Delphi без ошибок не подскажите почему ? (компонент чуть выше)