Averiguar los colores de un gráfico.

[*Caro*]

Hola amigo DEC hice la prueba del codigo que pusiste asignandole el color a un panel en el evento onMouseDown de mi imagen. Al hacer click me desaparece la imagen y me asigna el color negro a mi panel, me podrias explicar porque ocurre eso porfa.

Código Delphi [-]
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  color: TColor;
begin
  color := Image1.Picture.Bitmap.Canvas.Pixels[X, Y];
  panel1.Color:=color;
end;

gracias por adelantado