[Alegun]

А ещё можно код подсократить немного

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 ball:= 0;
 for i := 1 to 10 do
  Inc(ball, otv1[i, (FindComponent('ComboBox' + IntToStr(i)) as TComboBox).ItemIndex]);

 with label2 do
  if ball = 10 then Caption:= 'Правильно ответил' else
                    Caption:= 'Ответил не правильно';
end;