delphi从路径中分离文件名

function GetFileName(FileName: string): string; {从路径中分离文件名}

var Contador: integer;

begin

Contador := 1;

while Copy(FileName, Length(FileName) - Contador, 1) <> '\' do

begin

Contador := Contador + 1;

end;

Result := (Copy(FileName, Length(FileName) - Contador + 1, Length(FileName)));

end;