[dec]

Hola,

No sé si te refieres a algo así:

Código Delphi [-]
var
  color: TColor;
begin
  color := Image1.Picture.Bitmap.Canvas.Pixels[1, 1];
  {...}
end;