Quero compactar a pasta toda, mas não consigo!

No código abaixo ele me deixa escolher apenas arquivos...
Como poderia pegar a pasta toda?

if OpenDialogFiles.Execute then
begin
for i:= 0 to OpenDialogFiles.Files.Count -1 do
begin
if ListBox1.Items.IndexOf(OpenDialogFiles.Files[i]) = -1 then
ListBox1.Items.Append(OpenDialogFiles.Files[i]);
end;
end;