Подскажите процедурку, для добавления фотографий через Query в столбец БД Paradox 7, желательно с помощью OpenPictureDialog. Нашел такое, глючит, к тому же следующую картинку в следующую строку не вставляет!

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
if DataSource1.State<>dsEdit then
DataSource1.Edit;
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Query2.Post;
end;
Пожалуйста дайте что нить реально работающее, до сих пор такого не делал сообразить не могу!!!