procedure TForm1.LoadFromURL1Click(Sender: TObject);
var
  iURL: string;
  iResult: boolean;
begin
  iURL := 'http://www.xequte.com/imageen/graphics/page/logo.gf';
  // the correct url is http://www.xequte.com/imageen/graphics/page/logo.gif
  // repeat until url is loaded or canceled
  repeat
    ImageEnView1.IO.Aborting := False;
    ImageEnView1.IO.LoadFromURL(iURL);
    if Fit1.Checked then
      ImageEnView1.Fit;
    iResult := ImageEnView1.IO.Aborting;
    if ImageEnView1.IO.Aborting then
      if MessageBox(0, PWideChar('URL image could not be found.  Do you want to correct the url?'), 'Warning', MB_ICONWARNING or
        MB_YESNO) = mrYes then
        iResult := InputQuery('URL', 'Edit the URL to the image', iURL)
      else
        iResult := False;
  until
    iResult = False;
end;

procedure TForm1.LoadFromURL1Click(Sender: TObject);
var
  iURL: string;
begin
  iCount := ImageEnMView1.ImageCount;
  iURL := 'http://www.xequte.com/imageen/graphics/page/logo.gf';
  // the correct url is http://www.xequte.com/imageen/graphics/page/logo.gif
  ImageEnMView1.MIO.LoadFromURL(iURL);
  if ImageEnMView1.MIO.Aborting then
    MessageBox(0, PWideChar('URL image ' + iURL + 'could not be found'), 'Warning', MB_ICONWARNING or MB_OK);
end;

procedure TForm1.LoadFromURL1Click(Sender: TObject);
var
  iURL: string;
begin
  iURL := 'http://www.xequte.com/imageen/graphics/page/logo.gf';
  // the correct url is http://www.xequte.com/imageen/graphics/page/logo.gif
  ImageEnView1.IO.LoadFromURL(iURL);
  if ImageEnView1.IO.Aborting then
    MessageBox(0, PWideChar('URL image ' + iURL + 'could not be found.'), 'Warning', MB_ICONWARNING or MB_OK)
  else
    ImageEnView1.Update;
end;