I have to convert an image before sending him(it) to the base!

I do not manage to cross(spend) her(it) after the convertion.

Code
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;
A.Morel

A.Morel