Danke für eure Antworten!
Leider wäre es jetzt eine Qual, von meiner Funktion in eine Stream-Funktion umzuschreiben.
Eine Idee, welche bisher nur im Kopf existiert wäre ungefähr so:
Delphi-Quellcode:
const
{$IFDEF WIN32}
BufSize = 4 * 4096;
{$ELSE}
BufSize = 8 * 4096;
{$ENDIF}
Wäre das eine Idee?
Ansonsten würde ich zusätzlich noch alle Dateien zählen und die Durchschnittsgröße berechnen und anhand dessen entschieden.
Schlimmsten Falls könnte ich noch eine Fallunterscheidung machen (<= 4GB
RAM etc.)