radar:=TPNGImage.Create;
radar.LoadFromFile(GetPath(dt));
//------------------------------------------------------------------------------------------------------------------------------
procedure TfmMain.ImageDrawCanvas(Sender: TObject; ACanvas: TCanvas; ARect: TRect);
var
  x  : integer;
  y  : integer;
  x1 : integer;
  y1 : integer;
begin
  with ACanvas do
  begin
    y  :=map.LatitudeToBmpY(60);
    y1 :=map.LatitudeToBmpY(45);
    x  :=map.LongitudeToBmpX(-10);
    x1 :=map.LongitudeToBmpX(10);

    ACanvas.StretchDraw(rect(x,y,x1,y1),radar);
  end;
end;    
//------------------------------------------------------------------------------------------------------------------------------
procedure TfmMain.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  x1 : integer;
  y1 : integer;
begin 
  x1:=Image.Layers[0].ConvXScr2Bmp(X);
  y1:=Image.Layers[0].ConvYScr2Bmp(Y);

  if ((x1>=0) and (x1<Image.Layers[0].Bitmap.Width)) and ((y1>=0) and (y1<Image.Layers[0].Bitmap.Height)) then
    FrainIntensity:=LookUpColor(Image.Layers[0].Bitmap.Pixels_ie24RGB[x1,y1])
  else
    FRainIntensity:='';
    
  StatusBar.Panels[5].Text:=FrainIntensity;  
end;
//------------------------------------------------------------------------------------------------------------------------------
function TfmMain.LookUpColor(col: TRGB): string;
begin
  result:='';

  if EqualRGB(col,c1) then
    result:='0.01-0.5'
  else if EqualRGB(col,c2) then
    result:='0.5-1.0'
  else if EqualRGB(col,c3) then
    result:='1-2'
  else if EqualRGB(col,c4) then
    result:='2-4'
  else if EqualRGB(col,c5) then
    result:='4-8'
  else if EqualRGB(col,c6) then
    result:='8-16'
  else if EqualRGB(col,c7) then
    result:='16-32'
  else if EqualRGB(col,c8) then
    result:='>32';

  if result<>'' then
    result:=Format('%s mm/hr',[result]);
end;
//------------------------------------------------------------------------------------------------------------------------------

procedure TfmMain.ImageDrawCanvas(Sender: TObject; ACanvas: TCanvas; ARect: TRect);
var
  path : string;
  url : string;
  x,x1,y,y1 : integer;
begin
  path:='C:\Temp\radar.png';
  url:='https://maps.ci.consumer-digital.api.metoffice.gov.uk/wms_ob/single/high-res/rainfall_radar/2022-09-18T08:35:00Z.png';
    
  if UrlDownloadToFile(nil,PChar(url),PChar(path),0,nil)=0 then
  begin
    radar.LoadFromFile(path);
      
    y  :=map.LatitudeToBmpY(65);
    y1 :=map.LatitudeToBmpY(45);
    x  :=map.LongitudeToBmpX(-20);
    x1 :=map.LongitudeToBmpX(10);

    ACanvas.StretchDraw(rect(x,y,x1,y1),radar);
  end;
end;

UrlDownloadToFile(nil,PChar(url),PChar(path),0,nil).

ACanvas.StretchDraw(rect(x,y,x1,y1),radar)

procedure TMainForm.ImageEnView1DrawBackBuffer(Sender: TObject);
var
  i: integer;
  idx: integer;
  lat, lon: double;
  x, y: integer;
begin
  for i := 0 to ImageEnMView1.MultiSelectedImagesCount - 1 do
  begin
    idx := ImageEnMView1.MultiSelectedImages[i];
    lat := ImageEnMView1.MIO.Params[idx].EXIF_GPSLatitude;
    lon := ImageEnMView1.MIO.Params[idx].EXIF_GPSLongitude;
    x := map.LongitudeToBmpX(lon);
    y := map.LatitudeToBmpY(lat);
    with TIEBitmap.Create(@marker[0], marker_Size) do
    begin
      RenderToTBitmapEx(ImageEnView1.BackBuffer, x - marker_spot_x, y - marker_spot_y, 64, 64, 0, 0, Width, Height, 255, rfNone);
      Free();
    end;
  end;
end;