Работа с каталогами в дельфи1

[Hint_reg]

Procedure ScanDir(StartDir: String; Mask:string; List:TStrings);

Var SearchRec : TSearchRec;

Begin
IF Mask ='' then Mask:= '*.*';
IF StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
Begin
Repeat
Application.ProcessMessages;
IF (SearchRec.Attr and faDirectory) <> faDirectory then 
List.Add(StartDir + SearchRec.Name) else 
IF (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
Begin
List.Add(StartDir + SearchRec.Name + '\');
{ Рекурсивный вызов }
ScanDir(StartDir + SearchRec.Name + '\',Mask,List);
End;
Until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
End; {IF}
end;

А где здесь можно прописать имя папки которую надо искать?

[FaTaL]

Вот тут где красным, когда вызываешь эту процедуру:
ScanDir(StartDir: String; Mask:string; List:TStrings);