procedure Tdm.tabelleCalcFields(DataSet: TDataSet);
var Ergebnis : Variant;
Ergebnis:=
query.Lookup('id','1','name_z1;name_z2;p lz;ort');
Tabelle.FieldByName('beschreibung').AsString := Ergebnis[0]+' '+Ergebnis[1]+', '+Ergebnis[2]+' '+Ergebnis[3];
FMeldung Ungültiges Argument! Warum!