var
iP1: TPoint;

{ Highlight the selected pixel }
if (Paint1.Down) then
begin
  iP1.X := ImageEnView1.Layers[ImageEnView1.LayersCurrent].
    ConvXScr2Bmp(X);
  iP1.Y := ImageEnView1.Layers[ImageEnView1.LayersCurrent].  
    ConvYScr2Bmp(Y);
  ImageEnView1.HighlightedPixel := iP1;
  ImageEnView1.HighlightedPixelColor := clRed;
end;