DSPack::spielt einmal->danach nicht mehr

[Nils_13]

Delphi-Quellcode:

procedure TfrmMain.CheckState;
begin
  if FGC then
  begin
    with frmVideo do
    begin
      FilterGraph.Stop;
      FilterGraph.ClearGraph;
      FilterGraph.Free;
      FGC := False;
    end;
  end else
  begin
    with frmVideo do
    begin
      FilterGraph.RenderFile(fFiles[playindex].pfad);
      FilterGraph.play;
      FGC   := True;
      pause := True;
    end;
  end;
  frmVideo.Show;
end;

Delphi-Quellcode:

if LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.mpeg' then
begin
  CheckState;
end;

Wie und wo würdest du dann in frmVideo FGC zuweisen, denn so bringt mir das nichts ?