Hola,
Primero que nada los invito a utilzar las etiquetas DELPHI del foro que permiten una mejor visualización del código. Segundo, podrías probar:
Código Delphi
[-]
varStrList := TStringList.Create;
...
varStrList.Append('Mi cadena');
...
FreeAndNil(varStrList);