Ich würd das so machen mit der auswahl:
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: Edit1.text := 'WTQ2UBFFTVKB89' ;
1: Edit1.text := 'fnl5m901q6sfj1' ;
2: Edit1.text := 'fnpk3u01bho2h1' ;
3: Edit1.text := 'fncfbh014z3jy1' ;
4: Edit1.text := 'WN64UBFFVVZFO9' ;
end
end;
Itemindex ist der ausgewählte eintrag, wobei zu beachten ist das der erste eintag den wert 0 hat
dann kannst du für jeden wert ein best. ereignis starten