Delphi-Quellcode:
S := ExtractFileExt(ansilowercase(frmmain.OpenTextFileDialog1.FileName));
if S = '*.txt' then ...
ExtractFileExt holt sich die Dateiendung
ansilowercase sorgt dafür das auch ,*.TxT,*.TXT usw. erkannt werden indem alle buchstaben in kleinbuchstaben gewandelt werden
frmmain.OpenTextFileDialog1.FileName ist der dateiname