Código Delphi [-]for i := 0 to ComboBox1.ItemIndex -1 do begin
for i := 0 to ComboBox1.ItemIndex -1 do begin