procedure TForm1.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  iX: Integer;
  iY: Integer;
  iAlpha: Integer;
  iRGB: TRGB;
  iColor: TColor;
  iisImageLayer: Boolean;
begin
  iX := ImageEnView1.Layers[ImageEnView1.LayersCurrent].ConvXScr2Bmp(X);
  iY := ImageEnView1.Layers[ImageEnView1.LayersCurrent].ConvYScr2Bmp(Y);
  iisImageLayer := ImageEnView1.CurrentLayer is TIEImageLayer;
  if (iisImageLayer) and (iX >= 0) and (iX <= ImageEnView1.IEBitmap.Width - 1)
    and (iY >= 0) and (iY <= ImageEnView1.IEBitmap.Height - 1) then
  begin
    X1.Caption := 'X: ' + IntegerToString(iX);
    Y1.Caption := 'Y: ' + IntegerToString(iY);
    iRGB := ImageEnView1.Layers[ImageEnView1.LayersCurrent].Bitmap.Pixels[iX, iY];
    iColor := TRGB2TColor(iRGB);
    iAlpha := ImageEnView1.Layers[ImageEnView1.LayersCurrent].Bitmap.Alpha[iX, iY];
    ColorUnderCursor1.Brush.Color := DitherColor(iColor, iAlpha);
    Alpha1.Caption := 'Alpha: ' + IntToStr(iAlpha);
    Opacity1.Caption := 'Opacity: ' + IntToStr(IEAlphaToOpacity(iAlpha)) + '%';
  end;
end;

function DitherColor(AColor: TColor; AAlpha: Integer): TColor;
{ Dither a 32-bit color (with alpha value) to TColor. }
var
  iRGB: TRGB;
begin
  iRGB := TColor2TRGB(AColor);
  if (iRGB.r = 255) and (iRGB.g = 255) and (iRGB.b = 255) then
  begin
    iRGB.r := AAlpha;
    iRGB.g := AAlpha;
    iRGB.b := AAlpha;
  end
  else
  begin
    iRGB.r := Trunc(AAlpha / 255 * iRGB.r) + (255 - AAlpha);
    iRGB.g := Trunc(AAlpha / 255 * iRGB.g) + (255 - AAlpha);
    iRGB.b := Trunc(AAlpha / 255 * iRGB.b) + (255 - AAlpha);
  end;
  Result := TRGB2TColor(iRGB);
end;