[poli-smen]

Задание не совсем ясное, но этот исходный код можно сократить до примерно такого варианта:

Код:

  Ans[Number] := '123456' + #13#10 + '135';

  for i := 1 to Length(Ans[Number]) do
  begin
    case Ans[Number][i] of
      '1': Test.Ans11.Checked := True;
      '2': Test.Ans21.Checked := True;
      '3': Test.Ans31.Checked := True;
      '4': Test.Ans41.Checked := True;
      '5': Test.Ans51.Checked := True;
      '6': Test.Ans61.Checked := True;
      #13: p := False;
    end;
  end;

p.s. И ещё перед этим циклом неплохо бы сбросить отметку с этих чекбоксов.
Или же можно наоборот, перебирать в цикле чекбоксы и смотреть нет ли нужного символа в строке.