Zitat von
Gentleman:
if pos('.txt', SaveDialog1.FileName)> Length(SaveDialog1.FileName) - 4
Das funktioniert nur, wenn die Dateierweiterung '.txt' ist. Ist nur ein Buchstabe groß geschrieben, ist das Ergebnis FALSE. Ich würde
if lowercase(ExtractFileExt (SaveDialog1.FileName)) = '.txt'
nehmen.