Психологический тест!

TTest = record
    Question: string; // текст вопроса
    Answer: boolean; // ответ: да/нет
    class function Create(const Question: string): TTest; static;
  end;
 
var
  // список всех вопросов
  TestDirectory: TDictionary<string, TTest>;
  // значимые варианты ответов на определенные вопросы для определенного типа характера
  MelancholiacDirectory: TDictionary<string, boolean>;
begin
  TestDirectory := TDictionary<string, TTest>.Create;
  TestDirectory.Add('case1', TTest.Create('Легко ли Вы выходите из равновесия?')); 
  TestDirectory.Add('case2', TTest.Create('Вы любите кошек?'));
  TestDirectory.Add('case3', TTest.Create('Вы вспыльчивы?'));
  TestDirectory.Add('case4', TTest.Create('Вы часть пьете по утрам?'));
  TestDirectory.Add('case5', TTest.Create('Вы быстро засыпаете?'));
  TestDirectory.Add('case6', TTest.Create('Вы ощущаете утром бодрость?'));
  TestDirectory.Add('case7', TTest.Create('Еще какой-нибудь оригинальный вопрос?'));
  ........
 
  MelancholiacDirectory := TDictionary<string, boolean>.Create;
  MelancholiacDirectory.Add('case1', true); 
  MelancholiacDirectory.Add('case3', false);
  MelancholiacDirectory.Add('case4', false);
  MelancholiacDirectory.Add('case7', true);
  .....