조금만 수정하면 될듯한데요

var
        SR    : TSearchRec;
        SFile : String;
begin

        FilesList := False;

        if D[Length(D)] <> '\' then
                D := D + '\';

        if FindFirst(D+Name, faAnyFile, SR) = 0 then
        begin
                repeat
                        if (SR.Attr <> faDirectory) and (SR.Name[1] <> '.') then
                        begin
                                SFile := '';
                                SFile := D+SR.Name; {파일을 찾으면 label1.Caption에 디렉토리를 표시}
                                if SFile <> '' then
                                begin
                                        FilesList := True ;
                                        Break;
                                end;
                        end;
                Until (FindNext(SR)<>0);

                FindClose(SR);
        end;
end;

.