Procedure Tform1.ButtonClick(Sender: TObject);
Var LOB : TLobLocator;
    JPG : TJPEGImage;
    MS  : TMemoryStream;
Begin
JPG:=TJPEGImage.Create;

JPG.CompressionQuality:=100;
JPG.Grayscale:=False;
JPG.Assign(DBImage1.Picture.Bitmap;


MS :=TMemoryStream.Create;
JPG.SaveToStream(MS);
MS.Position:=0;

With OracleQuery1 Do
Begin
  SQl.Clear;
  SQL.Add('Insert into imageB values(1, empty_blob()) returning image into :image');
  LOB:=TLobLocator.Create(OracleSessionA, otBlob);
  DeclareVariable('image', otBlob);
  //SetComplexVariable('image', LOB);
  SetComplexVariable('image, MS);
  Execute;
  //LOB.LoadFromFile('c:\test.jpg');
  //LOB.Free;
  OracleSessionA.commit;
End;
End;

Procedure Tform1.ButtonClick(Sender: TObject);
Var LOB : TLobLocator;
    JPG : TJPEGImage;
Begin
  JPG:=TJPEGImage.Create;
  JPG.CompressionQuality:=100;
  JPG.Grayscale:=False;
  JPG.Assign(DBImage1.Picture.Bitmap);
  With OracleQuery1 Do
  Begin
    Clear;
    SQL.Add('Insert into imageB values(1, empty_blob()) returning image into :image');
    LOB:=TLobLocator.Create(OracleSessionA, otBlob);
    DeclareVariable('image', otBlob);
    SetComplexVariable('image', LOB);
    Execute;
    JPG.SaveToStream(LOB);
    LOB.Free;
    OracleSessionA.commit;
  End;
End;

Ora - 00932 : Types of inconsistent data : Blob Expected; Number Obtained