procedure TForm1.BitBtn2Click(Sender: TObject); begin ADOQuery1.Insert; //вставка записи Form3.ShowModal; //показываем форму ввода end;