Extraer solo nombre de archivo y extensión

[Perio]

Buenas, proba con una funcion asis:
Saludos

  
function ExtraerFileName(ruta:string):string;
var
  i:integer;
begin
  i:=length(ruta);
  while ruta[i]<>'\' do
	dec(i);
  result:=copy(ruta,i,length(ruta));
end;