CopyFrom 0-Byte Fehler

[CReber]

Delphi-Quellcode:

      try
        try
          outfile.CopyFrom(decompr,l);
        except
          on e:exception do
            Continue;
        end;
      finally
        outfile.Free;
        decompr.Free;
      end;

Ich habs jetzt so gemacht aber irgendwie funzt das auch nicht... jede file nach ner 0-byte datei wird auch 0-byte groß! irgendwo fehlt mir grad der ansatz