Скачивание файла с инета

uses IdHTTP;

procedure TForm1.Button1Click(Sender: TObject);
const
  Pic = 'http://www.codenet.ru/images/clame/tekama-2008-03-1-728x90.gif';
  SPic = 'c:\savedpic.gif';
var
  HTTP: TIdHTTP;
  Stream: TStream;
begin
  Stream := TMemoryStream.Create;
  HTTP := TIdHTTP.Create(nil);
  try
    HTTP.Get(Pic, Stream);
    Stream.Position := 0;
    TMemoryStream(Stream).SaveToFile(SPic);
  finally
    Stream.Free;
    HTTP.Free;
  end;
end;