aDateiGr:=aDateiGr + sizeof(aDateiGr)+sizeof(i)+sizeof(aDatName)+aFs.Size;
Du darfst dort nicht mit SizeOf(aDatName) arbeiten, das gibt nämlich ein Byte mehr zurück.
Showmessage(Format('Length(''ABC'') => %d'#13'SizeOf(''ABC'') => %d', [Length('ABC'), Sizeof('ABC')]));
Zitat von
Project1:
Length('ABC') => 3
SizeOf('ABC') => 4
---------------------------
OK
---------------------------