我的TADOStoreProc控件的Assign的问题找速达财务软件试用版

仓库管理软件版1楼: 我在Oracle中建立了过程。用TADOStoreProc控件传递参数，结果，当图片很小，大概10K，用Assign能够正确传递。可是，图片大了之后，即使100K都会出错。
请问是怎么回事？
请高手指点！

2楼: 把部分代码贴出来看看。如速达财务软件试用版

3楼: procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJpegImage;
x: integer;
begin
jpg := TJpegImage.Create;
jpg.PixelFormat := jf24Bit;
//
//jpg.LoadFromFile(＇＇01.jpg＇＇); //9.8k,成功。
jpg.LoadFromFile(＇＇02.jpg＇＇);//100K,出现错误
Prc1.Parameters[0].Assign(jpg)
Prc1.Parameters[1].Value := ＇＇AAAA;
Prc1.Parameters[2].Value := ＇＇BBBB;
Prc1.Parameters[3].Value := ＇＇2006-03-14 10:18:23＇＇;
Prc1.Parameters[4].Value := ＇＇2006-03-14 10:18:23＇＇;
Prc1.Parameters[5].Value := ＇＇2006-03-14 10:18:23＇＇;
Prc1.ExecProc;
x := Prc1.Parameters[6].Value;
ShowMessage(IntToStr(x));
//
FreeAndNil(jpg);
end;