procedure TForm1.LoadAndPlayGIFFromURL(const URL: string);
var
  HTTPClient: System.Net.HttpClient.THTTPClient;
  MemoryStream: TMemoryStream;
  TempFileName: string;
begin
  // Create a temporary file name with a .gif extension
  TempFileName := TPath.GetTempFileName + '.gif';
  CodeSite.Send('TForm1.LoadAndPlayGIFFromURL: TempFileName', TempFileName);

  // Create the HTTP client and memory stream
  HTTPClient := THTTPClient.Create;
  MemoryStream := TMemoryStream.Create;
  try
    try
      // Download the GIF data from the URL into the memory stream
      HTTPClient.Get(URL, MemoryStream);
    except
      on E: Exception do
      begin
        ShowMessage('Error downloading GIF: ' + E.Message);
        Exit;
      end;
    end;

    // Save the GIF data to the temporary file
    try
      MemoryStream.Position := 0; // Reset the stream position
      MemoryStream.SaveToFile(TempFileName);
    except
      on E: Exception do
      begin
        ShowMessage('Error saving GIF to file: ' + E.Message);
        Exit;
      end;
    end;
    // Loading the GIF directly from the stream does work, but the GIF cannot be animated:
    //ImageEnView1.IO.LoadFromStreamGIF(MemoryStream);
  finally
    HTTPClient.Free;
    MemoryStream.Free;
  end;

  var TempFileExists := FileExists(TempFileName);
  CodeSite.Send('TForm1.LoadAndPlayGIFFromURL: TempFileExists', TempFileExists);

  // Load the GIF from the temporary file into ImageEnView1
  try
    ImageEnView1.IO.LoadFromFileGIF(TempFileName);
  except
    on E: Exception do
    begin
      ShowMessage('Error loading GIF into ImageEnView1: ' + E.Message);
      Exit;
    end;
  end;

  // Start the animation
  ImageEnView1.Playing := True;

  // Save the temporary file name to the global variable for later cleanup
  FTempGIFFileName := TempFileName;
end;