[NumLock]

TStringList лишний, 2-х строчек кода достаточно:

Код:

var
  s: String;
begin
    SetLength(s, MemoryStream.Size);
    MoveMemory(@s[1], MemoryStream.Memory, Length(s));
    // работаем со строкой s
end;

я ж писал вариантов много