function GetPin(pFilter: IBaseFilter; pinDir: PIN_DIRECTION; Index: Integer = 0): IPin;
var
 bFound: Boolean;
 pEnum : IEnumPins;
 pPin  : IPin;
 PinDirThis: PIN_DIRECTION;
 Count : Integer;
begin
 Result := nil;
 bFound := false;
 pFilter.EnumPins(pEnum);
 Count := 0;
 while (pEnum.Next(1, pPin, nil) = S_OK) do
 begin
   pPin.QueryDirection(PinDirThis);
   if (pinDir = PinDirThis) then
     begin
       if Count = Index then
         begin
           bFound := true;
           break;
         end;
       Inc(Count);    
     end;
 end;
 pEnum.Reset;
 if bFound then Result := pPin;
end;