Pasar TMemorystream a string

[modulay]

Gracias amigos.
El volcado directo sobre el string no me funciona...al representar el contenido de dicho string,a veces muestra los valores ascii en hexadecimal,a veces muestra la cadena "true" ,a veces no muestra nada...

El volcado sobre el memo mediante el método LoadfromStream anda perfecto,asi que dado que necesitaba impepinablemente la trama en un string he volcado primero sobre el memo y después he accedido a éste y he copiado su contenido sobre el string.Así anda bien.

Código Delphi [-]

memoaux : TMemo;
clcd1linea1: TRasterlab;

procedure TForm1.procesasysex (const sysexbufferaux: TMemoryStream);
var
           cadena : string;
begin
           sysexbufferaux.Position := 0;
           memoaux.Clear;
           memoaux.Lines.LoadFromStream(sysexbufferaux);
           setlength(cadena,sysexbufferaux.size);
           cadena := Copy(memoaux.Lines.Strings[0],0, sysexbufferaux.size);
           clcd1linea1.Text := cadena;
end;

Saludo