Al Gonzalez, Era afirmación...
por lo que veo es Lazarus y ahi si casi no lo eh usado, sin embargo tal vez te pueda servir este codigo:
Código Delphi
[-]
FieldTEmp := TStringField.Create(dataset);
with FieldTEmp do
begin
FieldName := 'NewField';
FieldKind := fkLookup;
KeyFields := 'character_family';
LookupDataSet := clansDataSet;
LookupKeyFields := 'family_id';
LookupResultField := 'family_group';
DataSet := self.dataSet;
end;
dataSet.FieldDefs.Add(FieldTemp.FieldName, ftString, 50, false);
dataSet.Fields.Add(FieldTEmp);
este codigo es para crear un campo en tiempo de ejecucion, es de tipo lookup pero cambiando las propiedades lo puedes hacer calculado, espero que te sirva