var
 FImageView : TImageEnView;

begin
    if not assigned(FImageView) then
        FImageView := TImageEnView.create(NIL);
    with Kamera.CameraList do
      begin
        for i := 0 to count-1 do
        begin
          sURL := copy(Kamera.CameraList[i],Pos('=',Kamera.CameraList[i]) + 1,length(Kamera.CameraList[i])- 
          Pos('=',Kamera.CameraList[i])+1);          
          bOK:= FImageView.IO.LoadFromURL(sURL);
          if (bOK = true) then
          begin
            Log('dograb','Image of camera ' + inttostr(i+1) + ' - Download successful.');
            sFilename:= CreateFileName(sWeighingNo,iPosnr,Kamera,i+1);         
            FImageView.IO.SaveToFileJpeg(sPath + sFilename);          
            // Replace Src of the images inside the template.
            lstTemplate.text:= ReplaceStr(lstTemplate.Text,sBild,sFilename);
          end
          else
          begin
            Log('dograb','No image from camera ' + inttostr(i+1) + ' (IP: ' + sIP + ''').');
          end;
        end;
      end;
      // replace text in template
      lstTemplate.text:= ReplaceStr(lstTemplate.Text,'Scale/WS',sScaleNr + '/' + sWeighingNo + '/' + inttostr(iPosnr));
      lstTemplate.SaveToFile(sPath + 'viewpicture.html');
      Log('dograb','Viewpicture.html erzeugt.');
    end;
    ... freeing camera and list objects ...
end;

procedure TGrabPicture.GetImage(sURL: string; var idHTTP: TidHTTP; var JPG:
    TJpegImage);
var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create();
  try
    try
      IdHTTP.Get(sURL, MS);
      sleep(200);
      MS.Seek(0,soFromBeginning);
      JPG.LoadFromStream(MS);
    except
      on E: EInvalidGraphic do
      begin
        FreeAndNil(MS);
        getImage(sURL, idHTTP,jpg);
      end;
    end;
  finally
    FreeAndNil(MS);
  end;
end;