delphi在MemoryStream查找字符串

var
s : string;
begin
setlength(s, memorystream.size);
copymemory(@s[1], memorystream.memory, memorystream.size);
//pos('.....', s);
end;