[NumLock]

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(IntToHex(GetBkColor(Canvas.Handle), 8));
end;