Unit die lediglich Dateien aus einem Zip-File liest

[MisterNiceGuy]

Hi, ich möchte für ein Projekt einfach Dateien in einem Archiv zusammenfasst. Dazu will ich das Zip-Format verwenden.
Hat jemand den SourceCode dafür um einfach aus einem Zip-Archiv eine Datei zu extrahieren? Also quasi eine Funktion wie diese hier:

procedure ExtractFromZip(ZipFileName, FileName, Password:String);