[NumLock]

Код:

Image1.Picture.Icon.Handle:=ExtractIcon(0, 'c:\WINDOWS\system32\calc.exe', 0);