string umwandeln

[Gehstock]

Und wie bekomme ich jetzt hin das erkannte Sprachen einer Combobox zur Auswahl zugefügt werden
so wie unten werden ja alle hinzugefügt

Delphi-Quellcode:

  lang := StringReplace(lang, '(', ',', []);
  lang := StringReplace(lang, ')', ',', []);
  lang := StringReplace(lang, ',0,', ',Deu,', []);            LangSelect.Items.Add('Deutsch');
  lang := StringReplace(lang, ',1,', ',En,', []);             LangSelect.Items.Add('Englisch');
  lang := StringReplace(lang, ',2,', ',Ita,', []);            LangSelect.Items.Add('Italienisch');
  lang := StringReplace(lang, ',3,', ',Fr,', []);             LangSelect.Items.Add('Französisch');
  lang := StringReplace(lang, ',4,', ',Esp,', []);            LangSelect.Items.Add('Spanisch');
  lang := StringReplace(lang, ',5,', ',Ned,', []);            LangSelect.Items.Add('Holländisch');
  lang := StringReplace(lang, ',6,', ',Swe,', []);            LangSelect.Items.Add('Schwedisch');
  lang := StringReplace(lang, ',7,', ',Dan,', []);            LangSelect.Items.Add('Dänisch');
  lang := StringReplace(lang, ',8,', ',Por,', []);            LangSelect.Items.Add('Portogisisch');
  lang := StringReplace(lang, ',9,', ',Fin,', []);            LangSelect.Items.Add('Finnisch');
  lang := StringReplace(lang, ',10,', ',Nor,', []);           LangSelect.Items.Add('Norwegisch');
  lang := StringReplace(lang, ',11,', ',Gre,', []);           LangSelect.Items.Add('Griechisch');
  lang := StringReplace(lang, ',12,', ',Tür,', []);           LangSelect.Items.Add('Türkisch');
  lang := StringReplace(lang, ',13,', ',Ung,', []);           LangSelect.Items.Add('Ungarisch');
  lang := StringReplace(lang, ',14,', ',Pol,', []);           LangSelect.Items.Add('Polnisch');
  lang := StringReplace(lang, ',32,', ',Tsk,', []);           LangSelect.Items.Add('Tschechisch');
  lang := StringReplace(lang, ',142,', ',Est,', []);          LangSelect.Items.Add('Eestisch');
  lang := StringReplace(lang, ',154,', ',Lat,', []);          LangSelect.Items.Add('Lettisch');
  lang := StringReplace(lang, ',155,', ',Lie,', []);          LangSelect.Items.Add('Litauisch');
  lang := StringReplace(lang, ',162,', ',Rus,', []);          LangSelect.Items.Add('Russisch');
  lang := StringReplace(lang, ',173,', ',Ukr,', []);          LangSelect.Items.Add('Ukrainisch');
  lang := StringReplace(lang, ',161,', ',Rom,', []);          LangSelect.Items.Add('Romänisch');
  lang := StringReplace(lang, ',164,', ',Slo,', []);          LangSelect.Items.Add('Slovenisch');