bu fonksiyon ne işe yarıyor.

function dosy(fil:string):string;
var
i:integer;
tut:string;
begin
tut:='';
if (pos('\',fil)0) then
for i:=length(fil) downto 1 do
begin
if copy(fil,i,1)='\' then
begin
tut:=copy(fil,i+1,length(fil)-i);
break;
end;
end;
dosy:=tut;
end;
__________________