MazeStream.Write(ValidationString[1], StrLength*SizeOf(ValidationString[1]));
Ich finde folgendes schöner:
MazeStream.Write(String[1], StrLength * SizeOf(Char));
Genau so geht es auch beim lesen. Edit: Das liegt übrigens daran, dass Strings in den neuen Delphi Versionen
Unicode-Strings sind, und da ein Zeichen eben 2 Bytes belegt.