Punteros Strings

[[Delphius]]

jlrbotella, viendo tu código he detectado dos errrores:

1. ¿Quieres una función o procedimiento? Porque primeramente mencionas una función, pero en tu código hablas de un procedure.

2. Es lógico lo que planteas hacer. Pero tiene una gravísima falla. Si declaras a tu código como un procedimiento necesariamente debes indicar que el parámetro debe ser suministrado por valor y en tu ¡código no lo haces! Es por ello que el resultado que muestra es incorrecto.
Si lo declaras como función, el valor obtenido será el correcto y ya no es necesario que el parámetro sea pasado por valor.

En sintesis lo que necesitas es:

Código Delphi [-]
procedure CambiarCadena(var ValorOriginal : string);
begin
 ValorOriginal := ValorOriginal + ' cambiado';
end;

O bien:

Código Delphi [-]
function CambiarCadena(ValorOriginal : string): string;
begin
 result := ValorOriginal + ' cambiado';
end;

Escoje la que más te guste. No es necesario que andes operando con punteros.

Saludos,

[[Lepe]]

Ampliando un poco más:

Lo que hace delphi es pasar el parámetro como constante, creando una copia del valor en la pila, se permite que modifiques el valor de la variable, pero los cambios solo se verán dentro de esa rutina, por ejemplo, ejecuta esto y lo comprenderás:

Código Delphi [-]
procedure CambiarCadena(ValorOriginal : string);
begin
 ValorOriginal := ValorOriginal + ' cambiado';
 ShowMessage(' dentro de cambiar cadena: ' + ValorOriginal;
// mostrará: 'dentro de cambiar cadena: pepe cambiado'
end;
 
procedure PulsarCambio;
var
   cadena : string;
begin
   Cadena := 'pepe';
    CambiarCadena(cadena);
   Showmessage('fuera de cambiar cadena: ' +cadena);
  // mostrará:  "fuera de cambiar cadena: pepe";
end;

Saludos