ZLib Problem

[Telefonkabel]

OK, danke euch. Das hat soweit geklappt.
Aber jetzt habe ich das Problem, dass ich einen Fehler beim ausführen des Programms in der Prozedur:

Delphi-Quellcode:

procedure Decompress(InputFileName, OutputFileName: string);
var InputStream, OutputStream: TFileStream;
  DeCompressionStream: ZLib.TDeCompressionStream;
  Buf: array[0..4095] of Byte;
  Count: Integer;
begin
  InputStream:=TFileStream.Create(InputFileName, fmOpenRead);
  try
    OutputStream:=TFileStream.Create(OutputFileName, fmCreate);
    try
      DecompressionStream := TDecompressionStream.Create(InputStream);
      try
        while true do
        begin
          Count := DecompressionStream.Read(Buf[0], SizeOf(Buf));
          if Count = 0 then
            break
          else
            OutputStream.Write(Buf[0], Count);
        end;
      finally
        DecompressionStream.Free;
      end;
    finally
      OutputStream.Free;
    end;
  finally
    InputStream.Free;
  end;
end;

An der Stelle
Count := DecompressionStream.Read(Buf[0], SizeOf(Buf)); erscheint als Fehler: "Fehler."
Und ich würde gerne wissen, warum.

Funktionsaufruf:
decompress('C:\Dokumente und Einstellungen\...\test.php','C:\Dokumente und Einstellungen\...\test2.php');

Was ist falsch, oder warum geht es nicht?