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;