Функция скачки файла с использованием IdHTTP и контролем ошибок Delphi

Для текствых файлов:

function GetInetFile(const fileURL, FileName: string): boolean;
var fil:Tstrings;
begin
fil:=Tstringlist.Create;
result:=true;
try
fil.Text:=form1.idhttp1.Get(fileurl);
fil.SaveToFile(filename);
except
result:=false;
end;

fil.Free;
end;

еще:
Загрузить/скачать файл по HTTP >>