1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function GetFolderSize(AStartPath: string): Int64;
var
  sr: TSearchRec; // wichtig das dies eine lokale Variable ist, denn die muss mit auf den Stack

begin
  result := 0; // noch hat das Verzeichnis keine Größe
  gib mir ersten Eintrag im Verzeichnis
  (findFirst(sr, ...))
  wenn einen Eintrag gefunden
  beginne fußgesteuerte Schleife
    ist gefundener Eintrag eine Datei :
      result := result + größe der Datei // aktuelle Größe des Verzeichnisses plus der der aktuellen Datei
    if gefundener Eintrag ein Verzeichnis :
      // funktion ruft sich für das Unterverzeichnis selber auf und holt Größe des Verzeichnisses
      result := result + GetFolderSize(AStartPath+'\'+Name von Verzeichnis)
  ende der Schleife : beende wenn kein weiterer Eintrag in Verzeichniss ist (FindNext(sr))
end;