Texto en Memoria compartida

[[escafandra]]

Creo que es esto lo que quieres hacer con un buffer de memoria:

Código Delphi [-]
var
  Buffer: PByte;
  Texto:  AnsiString;
  S1, S2, R: AnsiString;
begin
  GetMem(Buffer, 64001);   // Reservamos espacio de memoria 
  // asignamos un texo
  Texto:= 'Hola mundo';
  // Pasamos el texto al buffer copiando el bloque de memoria añadiendo el cero final que ya da PAnsiChar
  CopyMemory(buffer, PAnsiChar(Texto), Length(Texto)+1);
  // Pasamos a S1 el texto simplemente asignando con un casting a puntero PAnsiChar 
  S1:= PAnsiChar(Buffer);
  S2:= ' cómo estás?';
  // Ya solo queda sumar cadenas
  R:= S1 + S2;
  // Y mostrarlas de algún modo...
  ShowMessage(R);
  FreeMem(Buffer);        // Liberamos la memoria del buffer
end;

Saludos.