Hallo
Habe wiedermal ein Problem
und zwar bekomme ich immer diesen Fehler:
E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

aber ich sehe nicht den Fehler?
kann mir einer sagen bitte was ich ändern muss wo das Problem ligt?


Code:
procedure DecompressStream(inpStream, outStream: TStream);
var
  InpBuf, OutBuf: Pointer;
  OutBytes, sz: LongInt;
begin
  InpBuf := nil;
  OutBuf := nil;
  sz     := inpStream.Size - inpStream.Position;
  if sz > 0 then
    try
      GetMem(InpBuf, sz);
      inpStream.Read(InpBuf^, sz);
      ZDecompress(InpBuf, sz, 0, OutBuf, OutBytes);
      outStream.Write(OutBuf^, OutBytes);
    finally
      if InpBuf <> nil then FreeMem(InpBuf);
      if OutBuf <> nil then FreeMem(OutBuf);
    end;
  outStream.Position := 0;
end;