Das teilst du der Funktioon beim Aufruf mittels der AsFolder Stringkonstante.
Delphi-Quellcode:
function IsEmptyFolder(const AsFolder : string) : boolean; //<-------------
var
sr : TSearchRec;
begin
Result := FindFirst(AsFolder+'\*.*',faAnyFile,sr) = 0; //<---- Das dann hier benutzt wird