Поле подстановки

[Xolodeec]

Добрый день,уважаемые форумчане!Начал работу в Делфи,взываю о помощи
Создаю программно поле подстановки,вроде бы создается(я это понял,потому что никакой ошибки не выдало,а при повторном обращение к таблице:выдает,что поле уже существует),но не отображается в DBGrid,что делать? Прилагаю код

procedure TfrmMain.ChangeTableChange(Sender: TObject);
begin
  frmDm.ADOTable1.Active:= False;
  frmDm.ADOTable2.Active:= False;
  frmDm.ADOTable1.TableName:= ChangeTable.Items[ChangeTable.ItemIndex];
  if ChangeTable.Items[ChangeTable.ItemIndex]= 'Players' then
  begin
  frmDm.ADOTable2.TableName:= 'Team';
  if frmDm.ADOTable1.FindField('Team') = nil then
  begin
    with TStringField.Create(frmDm.ADOTable1) do
    begin
      Size:= 20;
      FieldName  := 'Team';
      FieldKind  := fkLookup;
      Name       := 'ADOTable1Team';
      KeyFields  := 'Team_FK';
      LookUpDataSet := frmDm.ADOTable2;
      LookUpKeyFields := 'Team_ID';
      LookUpResultField:= 'Team';
      Visible:=True;
      frmDm.ADOTable1.FieldDefs.Add(Name, ftString, 20, false);
      end;
  end
  else
  begin
      showmessage('Поле уже сущетсвует!');
  end;
  end;
  frmDm.ADOTable1.Active:= True;
  frmDm.ADOTable2.Active:= True;
end;

[phomm]

На мой быстрый взгляд на этот код, не хватает строки типа

Field.DataSet := ADataSet;

Проверьте ещё все свойства для датасета и нового датафилда на соответсвие с кодом отсюда http://www.delphisources.ru/forum/sh...ad.php?t=26847 (в конце мой пост)