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