... SetLength(generated_arr, Count); v := temp_str; generated_arr[Count - 1] := v; v := ''; temp_str := ''; inc(Count); ...