[angvelem]

Пробуй так:

Код:

procedure TForm1.Button7Click(Sender: TObject);
var
  Stream : TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    IdHTTP1.Get('http://www.puntoun.com.ar/components/com_chronocomments/chrono_verification.php?imtype=1&anticache=84615', Stream);
    Stream.Seek(0, 0);
    if Stream.Size > 0 then
      Stream.SaveToFile('c:\\test.img');
  finally
    Stream.Free;
  end;
end;

Я поставил расширение '.img' на сохраняемый файл так как не известно что загрузилось. Чтобы правильно давать расширение нужно дополнительно проверить хэдер у загруженного файла, но это уже другая тема.
P.S. Только нужно ли заниматься сканированием изображений на предмет их "взлома", для последующего скармливания "роботу"?