[Alexi]

Код не много изменила, теперь никаких ошибок не выдает, программа запускается, но в базе данных запись не сохраняет, хотя никаких ошибок не выдает.

Код:

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
with form1.ADOQuery1 do
    begin
      SQL.Clear;
      SQL.add(' INSERT INTO zakaz ([ФИО],[Телефон],[Адрес],[E-mail],[Заказ],[Поставщики])'+
   'VALUES (null,:fio, :Tel, :adres, :mail, :zakaz, :post)');
      Parameters.ParamByName('fio').Value:=edit1.Text;
      Parameters.ParamByName('Tel').Value:=edit2.Text;
      Parameters.ParamByName('mail').Value:=edit3.Text;
      Parameters.ParamByName('adres').Value:=edit4.Text;
  if CheckBox1.Checked then
    Parameters.ParamByName('zakaz').Value:=CheckBox1.Caption;
    if CheckBox2.Checked then
      Parameters.ParamByName('zakaz').Value:=CheckBox2.Caption;
      if CheckBox3.Checked then
      Parameters.ParamByName('zakaz').Value:=CheckBox3.Caption;
      if CheckBox4.Checked then
      Parameters.ParamByName('zakaz').Value:=CheckBox4.Caption;
      if CheckBox5.Checked then
      Parameters.ParamByName('zakaz').Value:=CheckBox5.Caption;
      Parameters.ParamByName('post').Value:=ListBox1.items.Text;
       ADOQuery1.sql.text:='Select * from zakaz';
      ADOQuery1.active:=true;
      edit1.text:='';
      edit2.text:='';
      Edit3.text:='';
      Edit4.text:='';
      CheckBox1.Checked:=false;
CheckBox2.Checked:=false;
CheckBox3.Checked:=false;
CheckBox4.Checked:=false;
CheckBox5.Checked:=false;
for i:=0 to 15 do
ListBox1.Selected[i]:=false;
      ShowMessage('Запись добавлена!');
    end;

end;

Админ: Используем правильные теги для кода [code]!