Potrebna pomoc sa stringovima.

Code:

function ParentDir(strDir: string): string;
  var
    intBrojac: integer;
    strTemp: string;
  begin

    for intBrojac := Length(strDir)-1 downto 0 do
      begin
        if strDir[intBrojac] = '\' then
          break;
      end;

    strTemp := strDir;
    if (intBrojac > 0) and (intBrojac < Length(strDir)) then
      delete(strTemp, intBrojac+1, Length(strDir));
    result := strTemp;
  end;

Code:

S := ParentDir(S);