Add a GetByName procedure to the FieldRef object. It is not uncommon to need to get the FieldRef associated with a given Field Name.

procedure GetByName(RecRef: RecordRef; FieldName: Text; var FldRef: FieldRef)
var
i: Integer;
begin
for i := 1 to RecRef.FieldCount do begin
FldRef := RecRef.FieldIndex(i);
if FldRef.Name = FieldName then begin
exit;
end;
end;
Clear(FldRef);
exit;
end;