procedure TForm1.ImageEnView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = TMouseButton.mbLeft then
  begin
    CodeSite.SendColor('TForm1.ImageEnView1MouseDown: LEFT', TRGB2TColor(ImageEnView1.IEBitmap.Pixels[X, Y]));
  end
  else if Button = TMouseButton.mbRight then
  begin
    CodeSite.SendColor('TForm1.ImageEnView1MouseDown: RIGHT', TRGB2TColor(ImageEnView1.IEBitmap.Pixels[X, Y]));
  end
end;

ie24RGB:
  result := PRGB(GetSegment(y, x, 1))^;

procedure TForm1.ImageEnView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = TMouseButton.mbLeft then
  begin
    CodeSite.SendColor('TForm1.ImageEnView1MouseDown: LEFT', FColor);
  end
  else if Button = TMouseButton.mbRight then
  begin
    CodeSite.SendColor('TForm1.ImageEnView1MouseDown: RIGHT', FColor);
  end
end;

procedure TForm1.ImageEnView1UserInteraction(Sender: TObject; Event: TIEUserInteractionEvent; Info: Integer);
begin
  case Event of
    ieiColorPickerHover: // Hovering over image
      begin
        FColor := TColor(Info);
      end;
  end;
end;

// X and Y are MOUSE coordinates
bx := ImageEnView1.XScr2Bmp( X, False );
by := ImageEnView1.YScr2Bmp( Y, False );
// ...now bx and by are Bitmap coordinates (of ImageEnView1.IEBitmap)