type
  BaseConf = record
   ....
   CountList: boolean; //количество строк
   ....
  end;
  // колонки
  PBaseRec = ^TBaseRec;
  TBaseRec = packed record
   Number: Integer; // UIN
   Password, PM, PM_Password: WideString; // пароль от UIN , Привязаный Email, Пароль
   Money: Extended; // Цена
  end;