Переменная StreamError Objects
================================================================= Объявление StreamError: Pointer = nil;
Функция Если не nil, StreamError указывает на процедуру, которая вызывается методом Error потока при возникновении ошибки. Процедура должна быть дальней и использовать var параметр типа TStream, т.е. иметь объявление:
procedure MyStreamErrorProc(var S: TStream); far;
StreamError позволяет Вам глобально перекрыть всю обработку ошибок потока. Чтобы изменит обработку ошибок для определенного типа потока, Вы должны перекрыть метод Error этого потока.
