Delphi. Загрузка фото в поле BLOB (IBQuery)

[koudelka]

Всем привет, мучаюсь вторую неделю, решила просить помощи тут.
В общем, есть Удаленная БД, таблицы сделаны в IBConsol. Есть ФИО то да се, и поле BLOB для фото.
Как через кнопку загрузить фото в это поле и показать его соответственно в DBImage1 на форме.
Если раньше в локальной БД все работало вот так:

procedure TForm1.BitBtnADDPICTUREClick(Sender: TObject);  //кнопка добавить картинку
var Fname:string;
begin
if OpenPictureDialog1.Execute then begin
Fname := ExtractFilePath(Application.ExeName) + 'photo\' + ExtractFileName(OpenPictureDialog1.FileName); //указана папка, где хранятся фото 
DataModule2.Table2.Edit;
DataModule2.Table2Photo_Zdanija_ATC.LoadFromFile(Fname);
DataModule2.Table2.Post;
end;
end;

То сейчас мы работаем с Удаленной БД и вместо Table2 используем IBQuery2 (именно во второй таблице у меня поле BLOB).
Но есть одно НО, у меня ругается на

procedure TForm1.BitBtnADDPICTUREClick(Sender: TObject);
var Fname:string;
begin
if openpicturedialog1.Execute then
Fname := ExtractFilePath(Application.ExeName) + 'photo\' + ExtractFileName(OpenPictureDialog1.FileName);
DataModule2.IBQuery2.Edit;
DataModule2.IBQuery2РУГАЕТСЯТУТPhoto_Zdanija_ATC.LoadFromFile(Fname);  //ругается при соединении IBQuery2 и Photo_Zdanija_ATC, где Photo_Zdanija_ATC - название поля(столбца) BLOB
DataModule2.IBQuery2.Post;
end;

Подскажите, может кто знает - если я где-то ошиблась - укажите место, если нужен немного другой подход - как лучше сделать?

[koudelka]

-----------------------------ОТВЕТ НАЙДЕН!------------------------------
Вспомнила, что в прошлом году делали.
Необходимо в компоненте IBQuery нужной нам таблицы с полем фото (в моем примере выше IBQuery2) правым кликом зайти в Fields editor ==> add all fields (добавить все поля). Тогда ошибку слитного написания IBQuery2Photo выдавать не будет.
Ну и поставить некоторые дополнительные компоненты ^^ и обязательно настроить Update.
Настройка кропотливая, поэтому если кому-то понадобится - пишите пм.

[Аватар]

Можно и по другому

TBlobField(DataModule2.IBQuery2.FieldByName('Photo_Zdanija_ATC')).LoadFromFile(Fname);