procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
	vBitMapData: TBitmapData;
	color: TAlphaColor;
begin
	if Image1.Bitmap.Map(TMapAccess.Write, vBitMapData) then 
	begin
		color := vBitMapData.GetPixel(Round(X), Round(Y));  // 获取像素 返回类型为TAlphaColor
		ShowMessage(IntToHex(color, 1)); 　　　　　　　　　　　　 //为十六进制的颜色值
	end;
	Image1.Bitmap.Unmap(vBitMapData);
end;