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