MainForm.Caption := XBoolToStr( ImageEnView1.iebitmap.modified );
    iRGB := ImageEnView1.Layers[0].Bitmap.Pixels_ie24RGB[5, 5];
    MainForm.Caption := MainForm.Caption + '->' + XBoolToStr( ImageEnView1.iebitmap.modified );
    button1.font.Color := TRGB2TColor(iRGB);

False->False

procedure TCanvas.RequiredState(ReqState: TCanvasState);
var
  NeededState: TCanvasState;
begin
  NeededState := ReqState - State;
  if NeededState <> [] then
  begin
    if csHandleValid in NeededState then
    begin
      CreateHandle;
      if FHandle = 0 then
        raise EInvalidOperation.CreateRes({$IFNDEF CLR}@{$ENDIF}SNoCanvasHandle);
    end;
    if csFontValid in NeededState then CreateFont;
    if csPenValid in NeededState then CreatePen;
    if csBrushValid in NeededState then CreateBrush;
    State := State + NeededState;
  end;
end;

if UseCanvas1.Checked then
  iColor := ImageEnView1.Layers[0].Bitmap.Canvas.Pixels[iX, iY]
else
begin
  iRGB := ImageEnView1.Layers[0].Bitmap.Pixels[iX, iY];
  // iRGB := ImageEnView1.Layers[0].Bitmap.Pixels_ie24RGB[ix, iY];
  iColor := TRGB2TColor(iRGB);
end;