请高手指教啊，关于通过存储过程接口提交文件到blob字段中

procedure UpBlob(RID integer,myFilename filename);
var
  myFileStream  : TFileStream;
begin
  myFileStream  :=  TFileStream.Create(myFilename,fmOpenRead);
  showmessage(inttostr(myFilename.Size));
  StoredProc1.ParamByName('P_RID').ASINTEGER := RID ;
  StoredProc1.ParamByName('P_BLOB').LoadFromStream (myFileStream,ftOraClob)；
  StoredProc1.ExecProc;
end;有两句贴错啦，以上是真正的调试语句。帮忙啊，解决了高分相送啊