Delphi добавляет новую процедуру в компонент

Question

Я хочу добавить новую процедуру для компонента TMediaPlayer. Я не знаю, как скачать или читать с него. Это моя попытка:

Type
  Tmyhelper =class helper for tmediaplayer
  Public
    Procedure loadfromstream(stream:tstream)
  End;


Procedure tmyhelper.loadfromstream(stream: tstream);
Var
  S: tfilestream;
  Filename:tfilename;
Begin
  S:= tfilestream.create(filename,fmopenread);
  Try
  //S.read( s,sizeof(s));//loadfromstream
  Finally
    S.free;
  End;

Procedure loadfromfile

Procedure tmyhelper.loadfromfile(const filename: tfilename);
Var
  S: tfilestream;
Begin
  S:=tfilestream.create(filename,openread);
  Try
    //S.copyfrom(s,sizeof(s));//loadfromstream
  Finally
    S.free;
  End;