Sziasztok!

Egy nagyon kemény problémám van. -valószínűleg csak nekem kemény. Van egy listám amelynek elemei rekordok, Megvan hozzá a pointer is. Kezelni is tudom rendesen, de most az a bajom, hogy úgy szeretnék értéket adni az aktiv rekord elemeinek, hogy nem használom a konkrét nevét:
pl: POrszag_gl.Orszag_id := SelectQ1.FieldbyName('Orszag_id').AsInteger;
Itt pl az Orszag_Id nevét szeretném valami paraméterrel helyettesíteni, de semmi ötletem nincs hogyan;

Itt a felépítése a dolognak:

interface
type
PTTelepulesrec = ^TTelepulesrec;
TTelepulesrec = record
Telepules_id : integer;
Telepules_nev : string[30];
end;

Var
TTelepules_gl : TTelepulesrec;
PTelepules_gl: PTTelepulesrec;
TelepulesList_gl: TList;

Implementation

procedure TFAdatmodul.Orszaglistfeltolt;
Begin
New(POrszag_gl);
POrszag_gl.Orszag_id := SelectQ1.FieldbyName('Orszag_id').AsInteger ;
POrszag_gl.Orszag_nev := SelectQ1.FieldbyName('Orszag_nev').AsString;
OrszagList_gl.Add(POrszag_gl);
End;

Köszönöm előre is a segítséget