var

lvStream:TMemoryStream;

s:AnsiString;

p: PAnsiChar;

begin

lvStream:= TMemoryStream( pvObject);

GetMem(p, lvStream.Size + );

FillChar(p^, lvStream.Size, );

Move(lvStream.Memory^,p^,lvStream.Size);

s:=p;

FreeMem(p);

var

  lvStream:TMemoryStream;

  s:AnsiString;

begin

   s:='abcdefghjkimoop';

   lvStream.Write(s[], Length(s));

    lvStream.Position := ;

end;