[NumLock]

Код:

var
  APaletteEntry: array [0..$ff] of PALETTEENTRY;
  ANumberEntries: Integer;
  i: Integer;
  APanel: TPanel;
begin
  ANumberEntries:=GetPaletteEntries(Image1.Picture.Bitmap.Palette,
    0, $100,APaletteEntry);
  if ANumberEntries=0 then raise Exception.Create('GetPaletteEntries');
  for i:=0 to ANumberEntries-1 do
  begin
    APanel:=TPanel.Create(Self);
    APanel.Width:=32;
    APanel.Height:=32;
    APanel.Left:=(i mod 16)*32;
    APanel.Top:=(i div 16)*32+136;
    APanel.Color:=RGB(APaletteEntry[i].peRed, APaletteEntry[i].peGreen,APaletteEntry[i].peBlue);
    APanel.Parent:=Self;
  end;
end;