Кодом добавить поля в ADOQuery

[Janger]

В общем. Вроде бы, все получилось хорошо, вот только есть одно, НО:

    with TDBEdit.Create(Form1) do
      try
        Parent :=  Form1;
        Name := 'DBEdit'+IntToStr(x);
          DataSource := ds1;
          DataField := 'mmm'+IntToStr(m);
        Text := '';
        left := 14;
        top := 24;
        width := gb.Width-28;
        height := 21;
        anchors := [akLeft,akTop,akRight];
      except
        ShowMessage('Проблемы при создании DBEdit');
      end;

Падает на строке "DataField" ....
Поле в базе создаётся, но при назначении ... падает

[Janger]

Ааа. Я решил проблему...
в общем вот так все работает как часы))

Kol := ADOQuery1.FieldByName ('Key').AsInteger;
If Adoquery1.state in [dsInsert, dsedit] then ADOQuery1.Post;
ADOQuery1.Close;
ADOQuery1.Open;
ADOQuery1.Locate ('Key', kol, []);

[Stilet]

Я ничего не смог придумать лучше этого

Описал бы ты лучше задачу подробнее. Что-то не так в твоем решении. Не по феншую что-то...