[Страдалецъ]

Ну сделайте так:

Код:

procedure TForm24.Timer1Timer(Sender: TObject);
begin
 case ComboIndex
 of 1: Memo1.Lines.Add(ComboBox1.Text);
     2: Memo1.Lines.Add(ComboBox2.Text);
     3: Memo1.Lines.Add(ComboBox3.Text);
     4: Memo1.Lines.Add(ComboBox4.Text);
     5: Memo1.Lines.Add(ComboBox5.Text);
     6: Memo1.Lines.Add(ComboBox6.Text);
 end;
 Inc(ComboIndex);
 if ComboIndex > ComboCount then ComboIndex := 1;
end;

где ComboCount - количество подач