Ich habe es jetzt so gelöst vielleicht nicht die beste Lösung aber es geht
var sAlt,sNeu: String;
sAlt := 'ABCDE?FGHIJKLMNOPQRSTUVWXYZ';
while pos('?',sAlt) <> 0 do
begin
ListBox1.Items.Add(copy(sAlt,1,pos('?',sAlt)-1));
delete(sAlt,1,pos('?',sAlt));
end;
ListBox1.Items.Add(sAlt);
sNeu := ListBox1.Items.Strings[1];
wer bessere Vorschläge hat immer her damit
lg: doris