[Delphi] Скачать каталог из фтп

[patcher]

Подскажите пожалуйста, как скачать весь каталог с подкаталогами из ФТП на машину и наоборот.

ЗЫ. Дайте работоспособный код или еще лучше процедуру\функцию (не нужно расписывать ход действий).