Oracle(поле Blob) + Delphi проблема с отображением фото в DBImage

1)Есть орокловая база, в ней табличка с полем foto d котором лежат картинки в двоичном виде.
2)Есть WEB сервис на asp C#
3)GUI приложение на Delphi обращается к WS в ответ получает XMLDataSet, через дельфийский компонент Gekko получаем ту же DataSet в струтктуре Delphi, связываем ее с DBGrid, все нормально отображается. Затем кидаю на форму DBImage связываю ее с гридом, в результае получаю вместо фото, в DBImage, надпись (foto) т.е DataField.

PS
Пытаюсь сделать через поток, то же ругается!!!

procedure TForm1.StreamImage(Sender: TDataSet);
                          var
                          striamImage: TStream;
                          Bitmap: TBitmap;

begin
if Sender <> nil then
begin

  striamImage:= TCustomClientDataSet.Create(DataSetImage.DataSetField('foto'),bmRead);
  Sender.First;
  striamImage:= DataSetImage.CreateBlobStream(DataSetImage.DataSetField('foto'),bmRead);
  Bitmap:= TBitmap.Create;
  Bitmap.LoadFromStream(striamImage);
  DBImage3.Picture.Graphic:= Bitmap;
end;
end;

На какой строке ругается
и какую ошибку пишет?

Последний вариант кода:

procedure TForm1.StreamImage(Sender: TDataSet);
                          var
                          striamImage: TStream;
                          Bitmap: TBitmap;

begin
if Sender <> nil then
begin
  Sender.First;
  striamImage:= DataSetImage.CreateBlobStream(DataSetImage.DataSetField('foto'),bmRead);
  Bitmap:= TBitmap.Create;
  Bitmap.LoadFromStream(striamImage);
  DBImage3.Picture.Graphic:= Bitmap;
end;
end;

Ругается на

  striamImage:= DataSetImage.CreateBlobStream(DataSetImage.DataSetField('foto'),bmRead);

Переделал как:

striamImage:= DataSetImage.CreateBlobStream(DataSetImage.FieldByName('foto'),bmRead);

Пишет ошибку:

Access violation at address XXXXXXXX in module midas.dll

надо создать поток вначале.

striamImage:= TStream.Create;

Создал. Но нечего не изменилось....

значит надо искать здесь

DataSetImage.DataSetField('foto')

что за компонент DataSetImage ?

и вообще непонятно зачем это:

  striamImage:= TCustomClientDataSet.Create(DataSetImage.DataSetField('foto'),bmRead);
  Sender.First;

Последний вариант!:

procedure TForm1.StreamImage(Sender: TDataSet);
                          var
                          striamImage: TStream;
                          Bitmap: TBitmap;

begin
if Sender <> nil then
begin
  Sender.First;
  striamImage:= TStream.Create;
  striamImage:= DataSetImage.CreateBlobStream(DataSetImage.FieldByName('foto'),bmRead);
  Bitmap:= TBitmap.Create;
  Bitmap.LoadFromStream(striamImage);
  DBImage3.Picture.Graphic:= Bitmap;
end;
end;

DataSetImage - эту дасет возвращает компанент GekkoDotNetDataSet(переводит XMLDataSet в дельфийскую датасет)

Ниже как он это делает:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
      GekkoDotNetDataSet1.Get;
      CreateDataGrids(GekkoDotNetDataSet1);
end;

procedure TForm1.StreamImage(Sender: TDataSet);
                          var
                          striamImage: TStream;
                          Bitmap: TBitmap;

begin
if Sender <> nil then
begin
  Sender.First;
  striamImage:= TStream.Create;
  striamImage:= DataSetImage.CreateBlobStream(DataSetImage.FieldByName('foto'),bmRead);
  Bitmap:= TBitmap.Create;
  Bitmap.LoadFromStream(striamImage);
  DBImage3.Picture.Graphic:= Bitmap;
end;
end;

procedure TForm1.CreateDataGrids(Sender: TGekkoDotNetDataSet);
                          var
                          Iter : Integer;
begin
      if Sender <> nil then
       begin
          for Iter:= 0 to Sender.TableCount - 1 do
          begin
            DataSourseGrid.DataSet:= Sender.DataTable[Iter];
            //DataSetImage.Assign(Sender.DataTable[Iter]);
            DataSetImage:= Sender.DataTable[Iter];
            DataSourseImage.DataSet:= DataSetImage;
          end;
            DataSourseImage.DataSet:= DataSetImage;
       end;

end;


procedure TForm1.GekkoDotNetDataSet1RequestGetInvocation(Sender: TObject);
var
wsSoap : WebService1Soap;
begin
     wsSoap:=  GekkoDotNetDataSet1 as WebService1Soap;
     wsSoap.HelloWorld();
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
StreamImage(DataSetImage);
end;

1.Не нашел где создается DataSetImage
2.Если он все-таки создается и передается в качестве параметра, то к нему надо обращаться как к входному параметру
т.е. заменить на Sender

striamImage:= Sender.CreateBlobStream(DataSetImage.DataSetField('foto'),bmRead);

striamImage:= DataSetImage.CreateBlobStream(Sender.DataSetField('foto'),bmRead);