Ошибка при добавлении записи

[Itachi]

Здравствуйте. Мне требуется занести данные из Edit-ов и путь к картинке(с сохранением этой картинки в определенной дериктории) в бд access, пишу так:

//обновление
procedure TForm1.obn;
begin
datamodule2.ADOQuery1.Active := false;
datamodule2.ADOQuery1.SQL.Clear;
datamodule2.ADOQuery1.SQL.Add('SELECT SNum,kname,name,adres,image,opisanie FROM kos WHERE Kat="'+ComboBox4.Text+'";');
datamodule2.ADOQuery1.Active := true;
    och;
end;

//сохранение и изменение размера картинки
procedure TForm1.SaveJpeg;
var
  JPEG: TJPEGImage;
  bmp: TBItmap;
  scale: Double;
begin
  JPEG := TJPEGImage.Create;
   try
      jpeg.Loadfromfile( OpenPictureDialog1.filename );
      if jpeg.Height > jpeg.Width then
          scale := 800 / jpeg.Height
      else
          scale := 600 / jpeg.Width;
      bmp:= Tbitmap.Create;
      try
        bmp.Width := Round( jpeg.Width * scale );
        bmp.Height:= Round( jpeg.Height * scale );
        bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpeg );
        jpeg.Assign( bmp );
        PicFile := Edit1.Text + '.jpg';
        put:='Data\'+PicFile;
        JPEG.SaveToFile(ExtractFilePath(Application.Exename) + put);
       finally
        bmp.free;
      end;
  finally
    JPEG.Free;
  end;
end;

//добавление
procedure TForm1.Button12Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') or (memo4.Text='')
then
MessageDlg('Заполните пожалуйста все поля', mtError, [mbOk], 0)
else begin
SaveJpeg;
DataModule2.ADOQuery1.Active:=false;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('Insert into kos(kat,kname,name,adres,image,opisanie)');
DataModule2.ADOQuery1.SQL.Add('values('+QuotedStr(ComboBox3.text)+','+QuotedStr(Edit1.text)+','+QuotedStr(edit2.text)+','+QuotedStr(edit3.text)+','+QuotedStr(put)+','+QuotedStr(memo4.text)+');');
DataModule2.ADOQuery1.ExecSQL;
obn;//здесь ошибка
  begin
      if MessageDlg('Добавить еще запись?', mtConfirmation, [mbOK,mbCancel],0)= mrok then
      begin
      och;
      Panel9.Show;
      Panel2.Hide;
      end
      else
      begin
      obn;
      Panel9.Hide;
      Panel2.Show;
      end;
  end;
  end;
end;

если чего то непонятно могу пояснить.



Не надо создавать одинаковые темы.
Кросспост запрещён.

Модератор

[Itachi]

Ошибку нашел и исправил с кодом программы она не связана, все дело было в поле image бд.