[NumLock]

Код:

type
  TComputer = class
    CPU: String[25];
    RAMTotalSpace, HDDTotalSpace: LongWord;
    OS: String[25];
    Cost: LongWord;
  end;

  TIndex = class
    Idx: LongWord;
    FAM: String[25];
  end;