Punteros Strings

[jlrbotella]

Hola:

Me gustaría realizar una función donde reciba un string y se modifique dentro de la misma función, pero no tengo claro los punteros.

Ej:

Código Delphi [-]
procedure CambiarCadena(ValorOriginal : string);
begin
 ValorOriginal := ValorOriginal + ' cambiado';
end;
 
procedure PulsarCambio;
var
   cadena : string;
begin
   Cadena := 'pepe';
    CambiarCadena(cadena);
   Showmessage(cadena);
  // Deberia devolver " Pepe cambiado ";
end;