TGetResult = (
  grOK,
  grBOF,
  grEOF,
  grError
);

enum TGetResult {
  grOK,
  grBOF,
  grEOF,
  grError
};