MSHTML_tlb löst Fehlermeldung aus

[moperswings]

Hallo,

ich habe aus dem SwissDelphiCenter eine Funktion zur Berechnung der Verzeichnisgrösse.
Jetzt wollte ich noch etwas mit Web-Technik machen und füge die mshtml_tlb ein ...

Delphi-Quellcode:

implementation
uses MSHTML_tlb;
{$R *.dfm}

function GetDirSize(dirx: string; subdirx: Boolean): Longint;
var
        rec_: TSearchRec;
        foundx: Integer;
begin
        Result := 0;
        if dirx[Length(dirx)] <> '\' then dirx := dirx + '\';
        foundx := FindFirst(dirx + '*.*', faAnyFile, rec_);
        while foundx = 0 do
        begin
          Inc(Result, rec_.Size);
          if (rec_.Attr and faDirectory > 0) and
          (rec_.Name[1] <> '.') and (subdirx = True) then // hier kommt die 1. Fehlermeldung
          Inc(Result, GetDirSize(dirx + rec_.Name, True));
          foundx := FindNext(rec_);
        end;
        FindClose(rec_);
end;

und bekomme für jede Zeile, in der die Funktion vorkommt, diese Meldung:
[Fehler] Unit1.pas(45): Inkompatible Typen: 'Boolean' und 'Integer' Nehme ich die mshtml_tlb raus, läuft alles!

Hat jemand eine Idee?