在线等待答案，具体问题见内容

采用三层C/S实现图片存储到数据库中，现有问题求救?一、应用服务器，设置一接口函数，如下：
function TZBServer.FWriteBmp(szSQL,szParaName:String;pStringStream :TStringStream):boolean; //写
var
  MStringStream : TStringStream;
begin
  Result := False ;
  MStringStream:=TStringStream.Create('');
  MStringStream.CopyFrom(pStringStream,pStringStream.Size);
  With QuerySaveHDL do
  begin
    try
      SQL.Text := szSQL ;
      if Trim(szParaName)<>'' then
          ParamByName(szParaName).LoadFromStream(MStringStream,ftBlob);
      ExecSQL;
      Result := True;
    finally
      FreeAndNil(MStringStream);
    end;
  end;
end;二、客户端调用
procedure TFormSYS_TEST.BitBtn1Click(Sender: TObject);
Var
  MfileStream : Tfilestream;
  MStringStream : TStringStream;
  szId,szMemo,szType,szSQL:String;
begin
    szId   := EditID.Text ;
    szMemo := EditMEMO.Text ;
    szType := ExtractFileExt(Editfilename.Text) ;
    delete(szType,1,1);    MfileStream := TFilestream.Create(Editfilename.text,fmOpenRead);
    MStringStream:=TStringStream.Create('');
    MStringStream.CopyFrom( MfileStream,MfileStream.Size);    pData := pchar(MStringStream);    szSQL:= 'Insert into zwh_testimage(id,type,memo,bmp) values( ' +
            ' '  + szID   + ', '   +
            '''' + szType + ''', ' +
            '''' + szMemo + ''', ' +
            ' '  + ':pImage'  + ')'  ;
    Try
        DataModulePub.MidasConnectionPub.AppServer.FWriteBmp(szSQL,'pImage',MStringStream); //调用
    finally
        freeandnil(MfileStream);
        freeandnil(MStringStream);
    end;
end;三、问题
客户端调用 
  DataModulePub.MidasConnectionPub.AppServer.FWriteBmp(szSQL,'pImage',MStringStream);
不能这么写，主要参数类“TStringStream”好像不支持