Anstatt Dir die Arbeit zu machen, könntest Du CommaText (Eigenschaft von TComboBox.Items) verwenden...
Delphi-Quellcode:
var
ComboBoxItems: string;
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBoxItems := ComboBox1.Items.CommaText;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ComboBox1.Items.CommaText := ComboBoxItems;
end;