Danke dir für diese Information.
Jetzt funktioniert alles wie gewünscht.
Geänderte Zeile:
FStream.Write(Pointer(OutputCrypt.Text)^,Length(OutputCrypt.Text)* SizeOf(Char)*2]);
Hab also SizeOf(Char) * 2 gemacht.
Danke nochmal an alle die geantwortet haben.