Как создать поле Lookup во время выполнения приложения

uses
  Forms, Classes, Controls, StdCtrls, Db, DBTables, DBCtrls;


type
  TForm1 = class(TForm)
    Table1: TTable; // DBDemos customer table
    Table2: TTable; // DBDemos orders table
    Button1: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource1: TDataSource;
    Table2CustNo: TFloatField; // CustNo key field object used for Lookup
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringField.Create(Table2) do
  begin
    FieldName := 'MyLookup';
    FieldKind:= fkLookup;
    DataSet := Table2;
    name := Dataset.name + FieldName;
    KeyFields:= 'CustNo';
    LookUpDataset:= Table1;
    LookUpKeyFields:= 'CustNo';
    LookUpResultField:= 'Company';
    DbLookupCombobox1.DataField:= FieldName;
    DataSource1.DataSet:= Dataset;
    Table2.FieldDefs.Add(name, ftString, 20, false);
  end;
  DbLookupCombobox1.DataSource:= Datasource1;
  Table1.Active:= True;
  Table2.Active:= True;
end;

end.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 781 • TDictionary Custom Sort 6 779 • Fast Watermark Sources 6 565 • 3D Designer 9 514 • Sik Screen Capture 6 900 • Patch Maker 7 348 • Айболит (remote control) 7 287 • ListBox Drag & Drop 6 152 • Доска для игры Реверси 98 045 • Графические эффекты 7 463 • Рисование по маске 6 761 • Перетаскивание изображений 5 614 • Canvas Drawing 5 993 • Рисование Луны 5 785 • Поворот изображения 5 235 • Рисование стержней 3 834 • Paint on Shape 2 993 • Генератор кроссвордов 3 939 • Головоломка Paletto 3 129 • Теорема Монжа об окружностях 3 955 • Пазл Numbrix 2 612 • Заборы и коммивояжеры 3 416 • Игра HIP 2 339 • Игра Go (Го) 2 251 • Симулятор лифта 2 650 • Программа укладки плитки 2 219 • Генератор лабиринта 2 766 • Проверка числового ввода 2 375 • HEX View 2 715 • Физический маятник 2 401