function FarbenInPalette(hp: HPalette): Integer; 
var 
  a: array[0..255] of tagPaletteEntry; 
begin 
  result := GetPaletteEntries(hp, 0, 256, a); 
end; 
 

// Beispielaufruf 
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
var 
  anzahl: Integer; 
begin 
  anzahl := FarbenInPalette(Image1.Picture.Bitmap.Palette); 
  if anzahl = 0 then showmessage('Kein Paletten-Bitmap') else 
    showmessage('Palette umfasst ' + inttostr(anzahl) + ' Farben'); 
end;