[Nickers]

"Что-то выбранно" спамит?
Я конечно нуб но может поставить переменную булиан

Var 
   Stop:boolean

и добавить:

begin
   if (combo.itemindex > -1) and (Stop) then test;
      begin
         test;
         Stop:=false;
      end;
end.

Или переменную combo.itemindex после выполнения if'a делать меньше -1го (Но это плохой вариант)