for tI := 0 to DataModule2.IBQuery14.RecordCount -1 do
 begin
//в этом месте должна быть проверка на наличие нового элемента в таблице
   datamodule2.IBTable13.Insert;
   DataModule2.IBQuery16.SQL.Clear;
   DataModule2.IBQuery16.SQL.Add('select gen_id(g2,1) from RDB$DATABASE');
   datamodule2.IBQuery16.Open;
   id_f:=datamodule2.IBQuery16.Fields[0].Value;
   datamodule2.IBQuery16.Close;
   datamodule2.IBTable13.FieldByName('ID_F').Value:=id_f;
   datamodule2.IBTable13.FieldByName('NAME_BLUDO').AsString:=datamodule2.IBQuery14.Fields[0].AsString;
   datamodule2.ibtable13.FieldByName('KOLVO').AsInteger:=datamodule2.IBQuery14.Fields[1].AsString;
 end;