Загрузка GIF в Image по ссылке

[Shouldercannon]

Как загрузить в Image картинку формата gif по ссылке? Допустим вот эту childrensday-hp.gif

[Stilet]

В TImage по-моему никак, я выходил (коряво) из этого тем что загружал ГИФ в TWebBrowser

[Kotofff]

Реализация для Delphi 2010.
Для других версий Делфи - пиши бум думать ...

procedure TForm1.Button1Click(Sender: TObject);
var
  memStream: TMemoryStream;
begin
  memStream := TMemoryStream.Create;
  try
    idhttp1.Get(Edit1.Text, memStream); // основа - грузим сразу в поток
  except // типа обрабатываем ошибку ...
    ShowMessage('Файл не найден');
    Exit;
  end;
  try
    memStream.Position := 0; // становимся на начало потока
    GIF1.Image.LoadFromStream(memStream); // грузим из потока
  finally
    memStream.Free;
  end;
end;

Поясню:
1) на форме лежит IdHTTP1 из закладки Indy компонентов ...
2) Я использовал для проекта JvGIFAnimator из набора JVCL (JEDI) - это самый оптимальный вариант работы с GIFами.
3) в Edit1 - соответственно прямая ссылка ...

PS
прикрепил проект. там готовый ехе-шник.

[Shouldercannon]

Спасибо. На Delphi 7 тоже работает.