Dann müsste es aber eher so aussehen:
Delphi-Quellcode:
NewField := TStringField.Create(Table1);
NewField.FieldName := 'lfAuthor'; // Lookup Field Author
NewField.SetFieldType(ftString); // String
NewField.Size:=255;
NewField.KeyFields := 'book_author'; // Field aus Table1
NewField.LookUpDataset := Table2;
NewField.LookUpKeyFields := 'id'; // Field aus Table2
NewField.LookUpResultField := 'autor_nachname'; // Field aus Table2, welches über die id, die in 'book_author' steht, angezeigt werden soll
NewField.FieldKind := fkLookup;
NewField.DataSet := Table1;