роблемы с добавлением данных в таблицу через другую форму на дельфи

[Барби]

Всем привет! Это снова я. Делаю задачку в болранд дельфи. есть несколько таблиц данные из которых переносятся в одну итоговую таблицу(данные связаны по вторичным ключам), т.е. к примеру из таблицы "спортсмен" в таблицу "соревнования" приравнены id фамилий. проблема в том что дабавление в таблицу "соревнования" я осуществляю через дополнительную форму,где через обычный buttin просто выбираю из других таблиц данные кликая по ним мышкой. выбирается все нормально и когда нажимаешь добавить все ок, но запись не добавляется. почему то добавилась 1 запись в самом начале а потом не хочет. может где то какое то волшебное слово вставить надо вроде next или еще что нить чтоб добавилось?

procedure TForm1.Button2Click(Sender: TObject);

procedure TForm1.Button2Click(Sender: TObject);

var

Add : boolean;
begin
Form6.ShowModal;
ADOQuery1.Next;
Add := True;

if Add = True
then
begin
If FVvodAdd = True
then
begin

ADOQuery1.Append;
ADOQuery1.FieldByName('id_spmna').A sInteger := Form4.ADOQuery1.FieldByName('id_spo rtsmen').AsInteger;
ADOQuery1.FieldByName('id_sporta'). AsInteger := Form3.ADOQuery1.FieldByName('Id_spo rt').AsInteger;
ADOQuery1.FieldByName('id_med').AsI nteger := Form5.ADOQuery1.FieldByName('Id_med ali').AsInteger;


ADOQuery1.Post;
ADOQuery1.Active := False;
ADOQuery1.Active := True;





end;

end;
end;
если надо могу в архиве скинуть.

[Барби]

Хочу сказать огромное спасибо этому форуму. я его обожаю. как только напишу сюда свою проблему потом через некоторое время сама же нахожу ошибку. а вот если не напишу буду мучаться и не найду. так было и в этот раз. спасибо всем тем кто помогает и подсказывает, вы приводите меня к верному пути и правильному решению.