MemData (DevExpress) - Felder anlegen

[TPeterT]

Hallo!
Ich möchte zur Laufzeit in einem MemData Felder anlegen (siehe Code).
Leider bekomme ich beim Zugriff auf dieses neue Feld immer einen Fehler.
Was mache ich falsch?


newMemCol : TStringField;
...

for col := 1 to y do
begin
newMemCol := TStringField.Create(dxmemdataexcel);
newMemCol.FieldName := 'fnCol' + IntToStr (col);
newMemCol.Name := 'nameCol' + IntToStr (col);
dxMemDataExcel.Fields.Add(newMemCol);
...

dxMemDataExcel.Insert;
dxMemDataExcel.FieldByName('fnCol' + IntToStr(col)).Value := 'teststring';
...

Danke und liebe Grüsse
Peter