[NumLock]

Код:

type
  TNumLockMagic = record
    case Integer of
      10: (
        s10: array [0..9] of Char;
      );
      5: (
        s5: array [0..4] of Char;
      );
      1: (
        s1: array [0..0] of Char;
      );
  end;
var
  nl: TNumLockMagic;
begin
  nl.s10:='_123456789';
  ShowMessage(nl.s10);
  ShowMessage(nl.s5);
  ShowMessage(nl.s1);
end;