Tienes que usar arreglos dinamicos y asi podras establecer el tamaño segun el caso especifico
te dejo esto haber si te sirve
Código Delphi
[-]function funcion(texto:string):boolean;
var
probando: Array of Char;
begin
SetLength(probando,length(texto)+7);
writeln('Tamano del arreglo ',length(probando));
result:=true;
end;
begin
writeln(funcion('cadena'));
readln;
end.
saludos.......