#pas
procedure THIMemoryStream._work_doCopy;
var St:PStream;
begin
   P.Size := 0;
   St := ReadStream(_data,_data_SrcStream,nil);
   if St <> nil then
    begin
      Stream2Stream(P,St,St.Size);
      _hi_onEvent(_event_onCopy, p);
    end;
end;