[san-46]

- Вместо "While not (AFile) do" делаем "While not EOF(AFile) do".
- try не имеет begin.
надо:

Код:

Potok:=TStringStream.Create(rec);
  try
  ...
  finally
    potok.free
  end;