try...except problem

[Hybrid666]

Hi

ich hab folgendes problem:

ich nutze eine komponente um bestimmte devices zu suchen, die hat jedoch keine funktion um zu sagen ist das device da oder nicht, drum will ich das über try except machen.
Ist das Devicer (oder mehrere) da, so werden sie einer liste hinzugefügt, ist es nicht da soll ein error kommen...ich habe das so gemacht:

Delphi-Quellcode:

  try
    joy := TGamePad.Create(0);
    for i := 0 to GamePadCount - 1 do
    begin
      joy.ID := i;
      cbpads.Items.Add(joy.InstanceName);
    end;
  except
    showmessage('No Joystick/Gamepad found');
  end;

Ohne das try except würde kommen: List index out of bounds (-1), das sollte ja nun nicht mehr kommen...das problem: es kommt trotzdem...und das except wird NICHT ausgeführt...

was kann ich tun?

MfG Hybrid666