var
        DirInfo: TSearchRec;
        r,z,c: integer;
begin
        r := FindFirst('X:\Documents and Settings\XXX\Cookies\*.*', FaAnyfile, DirInfo);
        while r = 0 do
        begin
                if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
                        (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
                if DeleteFile(pChar('X:\Documents and Settings\XXX\Cookies\' + DirInfo.Name))= false then
                        z:=0;
                        r := FindNext(DirInfo);
        end;
        SysUtils.FindClose(DirInfo);
        application.Terminate;

end;