procedure TSSysSetup_SEL.GetOLEFile(Params: Variant;
  out ReturnVal: Variant);
  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  這個Procedure參數定義不能改
var
  sPath,sFile:String;
  Stream:TMemoryStream;
begin
  sPath:=ExtractFilePath(Application.ExeName);
  sFile:=Params[0];
  Stream:=TmemoryStream.Create;
  try
    sPath:=sPath '\Image\';
    Stream.LoadFromFile(sPath sFile);
    ReturnVal:=??????? 這裡要如何處理
  finally
    Stream.Free;
  end;
end;