SendMessage überträgt String nicht zuverlässig

[DeddyH]

Was mir zuerst auffällt: das cbData-Feld des CopyDatastructs gibt die Größe in Byte an, nicht die Länge Deines Strings, er ist also falsch belegt. Versuch es also zuerst einmal mit
copyDataStruct.cbData := Length(Nachricht) * SizeOf(Char);