[Casper-Hacker]

Кидаешь на форму IDHTTP и IdAntiFreeze (IdAntiFreeze - для того чтобы форма не висла)
Задаешь глобальную переменную TheEnd:integer;
Далее на кнопке пишешь...

Код:

Var
 fs: TFileStream; 
begin
fs := TFileStream.Create('Имя файла', fmCreate);
idHTTP1.Get('Прямая ссылка на картинку', fs);
fs.Free;

На процедуре IdHTTP1.Work пишешь:

Код:

TheEnd:=AWorkCount;

На процедуре IdHTTP1.WORKBEGIN пишешь:

Код:

if TheEnd=AWorkCountMax then Image.Picture.LoadFromFile('Твой_файл.jpg');