Réponse acceptée !
Hardouz,
Tu devrais le savoir : on cherche avant de poster une question
.
procedure TForm1.Button1Click(Sender: TObject);
Var
Index:Cardinal;
begin
RichEdit1.Clear;
For Index:=0 To ComboBox1.Items.Count-1 Do
RichEdit1.Lines.Add(Combobox1.Items.Strings[Index]);
end;