my memory Stream class

[virtual]

solved

procedure MemStream.ReadMem(var buf; _size: integer; count: DWORD);
var L: integer;
begin

 L := _size * count;
 inc(data,_Pointer);
 move(data^,buf,L);
 _pointer := _pointer + L;

end;