[dec]

Hola,

No es necesario que uses punteros, puesto que puedes pasar un parámetro como referencia, de modo que puedes modificarlo en la función o procedimiento:

Código Delphi [-]
procedure HazAlgoConCadena(var cadena: string);
begin
  cadena := cadena + ' añadido a cadena';
end;

var
  s: string;
begin
  s := 'Contenido más';
  HazAlgoConCadena(s);

  // Mostrará "Contenido más añadido a cadena"
  ShowMessage(s);
end;