type
  TCode = record
    Wort: string;
    Bezeichnung: string;
  end;

  TSteuerung = class
  const
    Ebene: array [1 .. 3] of string = ('G17', 'G18', 'G19');
  public
    Name: string;
    Nullpunkt: array of string;
    Parameter: array of string;
    Wegbedingung: array of TCode;
    Schaltfunktion: array of TCode;
    TAdresse: array of TCode;
    constructor Create; overload;
    constructor Create(Value: string); overload;
  end;

function FillString_list(Value: array of string): TStrings;
var
  list: TStrings;
begin
  list := TStringList.Create;
  for var I := 0 to Length(Value) - 1 do
    list.Add(Value[I]);
  result := list;
end;

FieldByName(MyTableFields[5]).AsWideString :=
  FillString_list(TSteuerung(MyObjects[P^]).Parameter).Text;

{ Schleife ebenfalls an FillString_list(Value: array of ...) übergeben }

for var I := 0 to Length(TSteuerung(MyObjects[P^]).Wegbedingung) - 1 do
liste.add(TSteuerung(MyObjects[P^]).Wegbedingung[I].Wort);
  FieldByName(MyTableFields[6]).AsWideString := liste.Text;
liste.clear;