wFileName := StringToOleStr(FileName);
    try
      hr := CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, GraphBuilder);
      if (hr <> S_OK) then begin
        ShowMessage(' (Error Code : ' + inttohex(hr, 8) + ')');
        ClearDirectShow;
        Exit;
      end;

      hr := GraphBuilder.RenderFile(wFileName, nil);
      if (hr <> S_OK) then begin
        case hr of
          VFW_S_PARTIAL_RENDER: begin
              ShowMessage(' (Error Code : ' + inttohex(hr, 8) + ')');
            end else begin
            ShowMessage(' (Error Code : ' + inttohex(hr, 8) + ')');         <- Hier kommt der Fehler VFW_E_NO_TRANSPORT - 0x80040266
            ClearDirectShow;
            Exit;
          end;
        end;
      end;