Запись имени файла изображения в бд

[dimGangboy]

Подскажите плиз , как по этой кнопке записать имя файла в текстовое поле бд аксес, которое я присвоил при сохранении на директорию с программой.
а то я с синтаксисом ооп не очень...

procedure TForm1.Button3Click(Sender: TObject);
var JpegIm: TJpegImage;
begin
// Конвертируем изображение в Jpeg
      //создаем объект JpegImage
      JpegIm := TJpegImage.Create;
      //устанавливаем связь с объектом Bitmap
      JpegIm.Assign(image1.picture.graphic);
      //задаем степень сжатия
      //JpegIm.CompressionQuality := 30;
      //сжимаем
      //JpegIm.Compress;
      // Сохраняем
      JpegIm.savetofile(ExtractFilePath(ParamStr(0) ) + FormatDateTime('DD_MM_YYYY_hh_mm_', Now())+IntToStr(i)+ '.jpg');
      inc(i);

Бд подключил с помощью TDBGrid;TADOQuery;TADOConnection; TDataSource;
Буду очень признателен.

[Stilet]

fn:=FormatDateTime('DD_MM_YYYY_hh_mm_', Now())+IntToStr(i);
JpegIm.savetofile(ExtractFilePath(ParamStr(0) ) +fn+ '.jpg');
with ADOQuery do begin
 sql.text:='insert таблица values (... '+QuotedStr(fn)+' ...);
 exec;
end;

В этом случае в таблицу вставится запись, в поле которого пойдет строка. Структуру базы и запроса сам определяй как нужно.
Путь относительный, так что при извлечении приплюсовывай к нему ExtractFilePath(ParamStr(0) )

Все понятно?

[dimGangboy]

На форме есть текущая картинка и поле Edit1.
У меня есть db1, в которой №|ИМЯ|ОПИСАНИЕ|ДАТА. Вот по этой кнопке должно записаться имя текущей картинки в ИМЯ в формате fn.jpg, из Edit1 - описание, и автоматически поставиться в ДАТА текущая дата записи, т.е.
№|ИМЯ |ОПИСАНИЕ|ДАТА
№|fn.jpg|оппппркра|ДАТА
Я так понимаю,
sql.text:='insert таблица values (... '+QuotedStr(fn)+' ...);
exec;

сюда запишется только имя без расширения jpg. Да?exec или except?
как сделать,чтоб изображения хранились в папке image, находящейся с проектом project.exe?