Source position: typinfo.pp line 1198
function GetRecordFieldList(
aRecord: PRecordData;
out FieldList: PExtendedFieldInfoTable;
Visibilities: TVisibilityClasses = []
):Integer;