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); Texto:= 'Hola mundo';
CopyMemory(buffer, PAnsiChar(Texto), Length(Texto)+1);
S1:= PAnsiChar(Buffer);
S2:= ' cómo estás?';
R:= S1 + S2;
ShowMessage(R);
FreeMem(Buffer); end;
Saludos.