Dateinamen aus ComboBox.Items erstellen

[moperswings]

Hallo,

ich habe für mein Problem eine Lösung, jedoch glaube ich, dass es eine bessere gibt und Ihr mir praktikablere Vorschläge liefern könnt. Ich habe 2 ComboBox, aus deren Items ich einen Dateinamen erstellen möchte. Mein Code:

Delphi-Quellcode:

var 
     a,b,c,d,: string;
     fs: textfile;
     name1, name2, name3, dateiname: string;
begin
     case ComboBox1.ItemIndex of
     0: begin a := Combobox1.Text; end;
     1: begin b := ComboBox1.Text; end;
     end;

     case ComboBox2.ItemIndex of
     0: begin c := combobox2.Text; end;
     1: begin d := combobox2.Text; end;
     end;
   
     name1 := a + b;
     name2 := c + d;
     name3 := '.txt';
     dateiname  := name1 + name2 + name3;
     Assignfile(fs, dateiname);
     ...

Bei ganz vielen ComboBoxen und Items wird diese Lösung unpraktisch!
Hoffe, Ihr könnt mir helfen und habt einen besseren Vorschlag!

Viele Grüsse, moperswings