ZIP в D7

[Kronos913]

При запуске такого кода, из архива извлекаются все файлы-тёзки нужного файла находящиеся в под-папках

А как сделать так, чтобы извлекался только один нужный файл?

Function ZipOut(const ZipFile, File_s, DirectoryOut: string; const Password:string=''):boolean;
var
  Zip: TZipForge;
begin
    try
      Zip:=TZipForge.Create(nil);
      Zip.FileName:=ZipFile;
      Zip.Password:=Password;
      Result:=ZipOpenRead(Zip);
      If Result then begin
        try
          Zip.BaseDir:=DirectoryOut;
          Zip.ExtractFiles(File_s);
        finally
          Zip.CloseArchive;
        end;
      End;
    except
      Result:=false;
    end;
    Zip.Free;
end;

[BDA]

Чтобы извлекся только файл из корневого каталога нашел только такой вариант:

Zip.Options.Recurse := False;
Zip.ExtractFiles(File_s);