procedure TPhoto.ButtonClick(Sender: TObject);
var
  m : TStream;
  f : TFileStream;
begin
  if OpenDialog1.Execute then begin
    DataModule1.IBQuery1.Edit;
    m := DataModule1.IBQuery1.CreateBlobStream(DataModule1.IBQuery1PHOTO, bmReadWrite);
    f := TFileStream.Create(OpenDialog1.Filename, fmOpenRead);
    m.CopyFrom(f, 0);
    f.Free;
    m.Free;
    DataModule1.IBQuery1.Post;
  end;
end;