Das ist jetzt vielleicht eine ganz dumme Frage, aber: Wozu nimmt man diese alten Pascal-Routinen und nicht einfach einen
TFileStream (oder
TBufferedFileStream)?
Dann Debug doch mal beide Routinen...
1x FileStream
1x Blockwrite
Und? Auf welche Routinen laufen beide zusammen? Richtig genau die gleichen IO Routinen... Nur das die Blockwrite Variante weniger Calls benötigt... Also schneller!