Получить расширение файла

[ОДИНОЧЕСТВО В СЕТИ]

пример

var
s:string;
s1:string;
i:Integer;
begin
s:='A.DH.exe';
i:=length(s);
while s[i]<>'.' do begin
s1:=s[i]+s1;
dec(i);
end;
ShowMessage(s1);
end;

[Пепел Феникса]

function Extention(FileName:string):string;
var i:integer;
begin
 i:=Length(FileName);
 while (i>0)and(FileName[i]<>'.') do i:=i-1;
 if i<=0 then Result:='' else Result:=Copy(FileName,i,Length(FileName));
end;