[<<D>>]

Код:

var i:integer;
begin
if combobox1.ItemIndex<0 then
combobox1.ItemIndex:=0
else
begin
for i:=-1 to combobox1.Items.Count-1 do
begin
if combobox1.ItemIndex=i then
begin
combobox1.ItemIndex:=i+1;
exit;
end;
end;
end;