Szia előre is köszönöm a segítséget,
azt nem is tudom egyáltalán,hogy szerkesztési időben hogyan lehet,futási időben próbáltam.
futási időben sikerült létrehozni a mezőt,de nincs visszatérési érték és nem látom a dbgrid-ben a mezőt.
MyField := TField.Create(dbf1);
myfield.DisplayLabel:='mezonev';
MyField.FieldName := 'MEZONEV';
MyField.FieldKind := fkLookup;
myfield.KeyFields:='cikkszam';
MyField.LookupDataSet := dbf2;
MyField.LookupKeyFields := 'cikkszam';
MyField.ReadOnly := false;
myfield.LookupResultField:='pd5';
dbf1.Fields.Add(MyField);