Laut Delphi-Hilkfe könnte Dein problem aber auch an anderer Stelle liegen: Nämlich in der Tatsache, dass Du in jedem Schleifendurchlauf die Methode "SetLength" erneut aufrufst:
Zitat von
Delphi-Hilfe:
Existing characters in the string or elements in the array are preserved, but the content of newly allocated space is undefined. The one
exception is when increasing the length of a dynamic array in which the elements are types that must be initialized (
strings, Variants, Variant arrays, or records that contain such types). When S is a dynamic array of types that must be initialized, newly allocated space is set to 0 or nil.
Wenn Du also Strings speicherst, dann werden diese zurückgesetzt.
Grüße,
Daniel
Daniel R. Wolf