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