{
Check I/O status.
}
function IoError:Boolean;
begin
 IoError:=false;
 if ioresult<>0 then begin
  Trouble('I/O error.');
  IoError:=true;
 end;
end;
