[AlexSku]

Вот такой кусочек у меня работает (загрузил картинку в Image1 и щёлкаю по ней мышкой).

Код:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  P: PByteArray;
begin
  try
    case Image1.Picture.Bitmap.PixelFormat of
    pf8bit:
    begin
      P:= Image1.Picture.Bitmap.ScanLine[Y];
      Caption:= Format('X=%u,  Y=%u,  Цвет=%x', [X, Y, P^[X]]);
    end;
    end;
  except
  end;
end;