procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin for i:=0 to 10 do Combobox1.Items.Add(IntToStr(i)); end;