Fájlmásolást végrehajtó program, amely az alábbi kódnál gyorsabban dolgozik nagy állományok esetén is? (Pascal)

Ittt egy kód, amelynél gyorsabbat keresnék, azaz gyorsabb megoldást. A gyorsítást nem úgy értem, hogy a "repeat-until" ciklus helyett "while" ciklussal lenne megvalósítva, vagy pedig hogy az adatpuffert megnövelni a hatszorosára. :-)

Létezhet ennél gyorsabb megoldás és ha igen, milyen?

program fajlmasol;

var

inf, outf : File of Byte;

adat : Array[1..95000] of Byte;

NumRead, NumWritten:Longint;

Begin

Assign(inf,ParamStr(1));

Reset(Inf);

Assign(outf,Paramstr(2));

Rewrite(outf);

repeat

BlockRead(inf,adat,Sizeof(adat),NumRead);

BlockWrite(outf,adat,NumRead,NumWritten);

Until(NumRead=0);

Close(inf);

Close(outf);

End