zur Laufzeit erstellte komponente an eine Funktion übergeben

[Alf]

Hi Leute

erstelle zur Laufzeit mehrere comp.
nun mus eine davon an eine Procedure oder Funktion übergeben werden,
aber ich erhalte immer eine Fehlermeldung.

Delphi-Quellcode:

var
  MyPlayer: TMediaPlayer;


Procedure TForm1.PlayerCreate;
var
   p: Integer;
begin

     for p:=1 to pindex do
     begin
          MyPlayer:=TMediaPlayer.Create(self);
          MyPlayer.Name:='MyPlayer'+IntToStr(p);
          MyPlayer.parent:=self;
          MyPlayer.Visible:=false;
     end;

end;

...........
..........

begin

     ...........
     ...........

     SetMPVolume(TMediaPlayer(FindComponent('MyPlayer'+IntToStr(i+1))),round(tin));

     ..........
     ..........
end;

Die Fehlermeldung: Zugriffsverletzung bei Adresse xxxxxx .
ist der Aufruf Findcomponent dafür falsch?


Gruss Alf