Ругается компилятор

[JSM]

Здравствуйте! У меня такая проблема: В интернете нашел код, который выдает список поддиректорий в директории Вот он:

procedure GetSubDirs(const sRootDir: string; slt: TStrings); 
 var 
 srSearch: TSearchRec; 
 sSearchPath: string; 
 sltSub: TStrings; 
 i: Integer; 
 begin 
 sltSub := TStringList.Create; 
 slt.BeginUpdate; 
 try 
sSearchPath :=  AddDirSeparator(sRootDir); 
 if FindFirst(sSearchPath + '*', faDirectory, srSearch) = 0 then 
  repeat 
  if ((srSearch.Attr and faDirectory) = faDirectory) and 
  (srSearch.Name <> '.') and 
  (srSearch.Name <> '..') then 
  begin 
  slt.Add(sSearchPath + srSearch.Name); 
  sltSub.Add(sSearchPath + srSearch.Name); 
  end; 
  until (FindNext(srSearch) <> 0); 
 
 FindClose(srSearch); 
 
 for i := 0 to sltSub.Count - 1 do 
  GetSubDirs(sltSub.Strings[i], slt); 
 finally 
 slt.EndUpdate; 
 FreeAndNil(sltSub); 
 end; 
 end;

После компиляции он ругается на AddDirSeparator, говорит Undeclared identifier. В чем проблема? Может что-нибудь подключить надо? Или может кто предложит рабочий аналог этой процедуры. Если что у меня Delphi 7 версии.

[Jeni]

Наверное можно просто написать
sSearchPath := sRootDir + '\';

[JSM]

Сообщение от Jeni

Наверное можно просто написать
sSearchPath := sRootDir + '\';

Огромное спасибо!!! Все работает!!!!!!!!