[Domanoff]

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
 IBQuery1.SQL.Clear;

 IBQuery1.SQL.Text:='INSERT INTO MEROPRIAT(ID_MEROPRIAT,NAME,DAT) VALUES(gen_id(GEN_MEROPRIAT_ID,1),:N, : D)';
 IBQuery1.ParamByName('N').Value:=Edit1.text;
 IBQuery1.ParamByName('D').Value:=DateTimePicker1.Date;
 IBQuery1.ExecSQL;
      end;
end.

Admin: Пользуемся тегами!