TCombobox bei onchange itemindex ändern

[Pitch-Bull]

Delphi-Quellcode:

cb_language : TCombobox; 
... 
var d_lang : TIiniFile 
begin 
  if cb_language.Items.Count > 0 then 
  for i := 0 to 2 do 
    cb_language.Items[i] := d_lang.ReadString('Main','cb_language' + IntToStr(i),'') 
    cb_language.itemindex:=i;
  else 
  for i := 0 to 2 do 
    cb_language.Items.Add(d_lang.ReadString('Main','cb_language' + IntToStr(i),'')); 
    cb_language.itemindex:=i;
end;

????