1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function GetTyp(datei:String):String;
var i:Integer; ok:Boolean; Temp:String;
begin
ok:=false;
Result:='';
Temp:='';
for i:=length(datei) downto 1 do
        if (ok=false) and (datei[i]<>'.') then Temp:=Temp+datei[i]
                else if datei[i]='.' then ok:=true;
for i:=length(Temp) downto 1 do
        Result:=Result+Temp[i];
end;					

1:
2:
3:
4:
5:
6:

var
  extension: String;
begin
  extension := ExtractFileExt('Hallo.txt');
  ShowMessage(extension);
end;