Hat Setlength eine interne vorgeschaltete Längenprüfung?

[himitsu]

SetLength sorgt als Erstes immer erstmal für eine Unique-Instanz, selbst wenn nichts gemacht wird.

Und es gibt einen Unterschied welches "SetLength" aufgerufen wird.
SetLength für ShortString -> String[x]
SetLength für WideString -> OLE32
SetLength für LongStrings -> AnsiString, UnicodeString, UTF8String, ... (wobei das "dyn. Arrays" mit kompltt funktionsfähigem CopyOnWrite und paar weiteren Addons sind)
SetLength für dynamische Arrays (mit oder ohne gemanageten Typen im Array)

siehe System.pas (abgesehn von dem Problemchen mit den fehlenden Quellcodes in der Starter)
_SetLength(s: PShortString; ...)
_WStrSetLength
_LStrSetLength, _UStrSetLength
_DynArraySetLength