[NumLock]

Код:

uses
  ShellAPI,


procedure
var
  icn: TIcon;
begin
  icn:=TIcon.Create;
  icn.Handle:=ExtractIcon(HInstance, 'c:\windows\system32\shell32.dll', 15);
  Application.Icon.Assign(icn);
  ImageList1.AddIcon(icn);
  icn.Free;
end;