TGetResult = ( grOK, grBOF, grEOF, grError );
enum TGetResult { grOK, grBOF, grEOF, grError };
DB
This is record DB.TGetResult.