Código Delphi [-] function ExtractFileExt(const FileName: string): string;
function ExtractFileExt(const FileName: string): string;