ääääähhhhmmmmmm
Wenn ihr mir jetzt da noch überall dazu schreibt warum ich auf die einzelnen Beispiele nich selber gekommen bin...
Habs jetzt so gemacht..
a:=lowercase(extractfileext(currentfile));
Das funktioniert auch und somit ist das gut.
Also dann wieder