Получить имя текущей папки из пути...

function getCurrentDir(fullPath:string):string;
var
i:integer;
start,finish:integer;
begin
   finish:=length(fullPath);
   if fullPath[finish]='\' then dec(finish);
   start:=-1;
   for i:=finish downto 1 do
   begin
      if fullPath[i]='\' then
          begin
             start:=i+1;
             break;
          end;
   end;
   if start=-1 then start:=1;

   result:=Copy(fullPath,start,finish - start+1);
end;