delphi – 我如何从TFileStream和TMemoryStream中下载？

TCustomFileStream = class (TFileStream)
  function ReadByte: byte;
  function ReadWord: word;
  function ReadWordBE: word;
  function ReadDWord: longword;
  function ReadDWordBE: longword;
  function ReadString(Length: integer): string;
  function ReadBlockName: string;
  etc

当我想编写一个可以将任何类型的流作为参数的函数时,我必须使用TStream：

function DoStuff(SourceStream: TStream);

这当然意味着我无法使用自定义功能.
什么是解决这个问题的最好方法？理想情况下,我希望能够有一个兼容FileStream或MemoryStream的Tst??ream兼容类,所以我可以做这样的事情,如果流是FileStream或MemoryStream则无关紧要：

function DoStuff(SourceStream: TMyCustomStream);
begin
    data := SourceStream.ReadDWord;
    otherData := SourceStream.Read(Buffer,20);

end;