Hallo und Willkommen in der
DP 
,
1. Falsche Sparte, Du willst ja keine erarbeitete Lösung vorstellen, sondern hast ein Problem.
2. Benutze bitte in Zukunft keine Code- sondern Delphi-Tags (das ist der "Helm" im Editor)
3. Kompiliert der Code überhaupt? Zumindest die Zeile
Zitat:
else if Satz[buchstabe]='a''e''i''o''u' then begin
sieht schon irgendwie komisch aus.
4. Du gibst Deine Stringliste frei und willst dann erst eine Datei hineinladen.