procedure THIMemoryStream._work_doCopy;
var St:PStream;
begin
   _prop_Stream.Size := 0;
   St := ReadStream(_data,_data_SrcStream,nil);
   St.Position:= 0;                                        // вот эта строка обязательна, ее не было
   if St <> nil then
     Stream2Stream(_prop_Stream,St,St.Size);
end;