Delphi-Quellcode:
ext := lowercase (ExtractFileExt (fn));
if pos (ext, '.odt.txt.doc.rtf.docx.pas.dfm') <> 0 then begin
Mit POS kannst du, dank der Mobilen Plattformen schnell mal stolpern,
denn neuerdings sind String 0-basierend.
Darum würde ich dir eher zu den neueren und ganz neuen Features raten.
z.B.
ContainsText(X, S),
MatchText(S, [X, X, ...]), S.ToLower.LastIndexOf(X)>=0
Vorallem die Record-Helper sind immer 0-basierend und arbeiten somit überall gleich, auch im Windows.