Danke für die Antwort.
Am Edit-Feld liegt es auch nicht, weil noch in der Compress() Funktion die Länge von Result im Englischen Windows 10 mit koreanischen Languagepack 47 Bytes hat, im original koreanischen Windows 10 jedoch 28 Bytes.
Zeige ich nun so an:
Delphi-Quellcode:
function Compress(aText: string; aCompressionLevel: TZCompressionLevel=zcMax): UTF8String;
var
strInput,
strOutput: TStringStream;
Zipper: TZCompressionStream;
s: UTF8String;
begin
...
Result := strOutput.DataString;
Form2.Caption := IntToStr(Length(Result));
...
end;
edit:
Bin nun nicht mehr so sicher ob WideStringToUTF8() aus JclStringConversions auf jedem System gleich arbeitet. Hier könnte wirklich der Fehler sein.
Hab statt dessen nun die Delphi 2009 native UTF8Encode() Funktion versucht. Die macht aber rein gar nichts, Output ist immer gleich Input.