저도 초보이긴 한데요.
제가 보기엔

// 맞은수와 틀린수를 배열값에 ...
For i := 1 to StringGrid1.ColCount -1 do
begin
       aTempT[i]  :=  0;
       aTempF[i]  :=  0;
       For j := 1 to StringGrid1.RowCount - 1 do
       begin
              if StringGrid1.Cells[i,j] = 'O' Then
              begin
                     aTempT[i] := aTemp[i] + 1;
              end
              else
              begin
                     sTempF[i] := sTempF[i] + 1;
              end;
       end;
end;

실제로 컴파일은 한건아닌데요 틀릴수도 있구요
이렇게 하면
aTempT[], aTempF[] 에 맞은수와 틀린수를 파악할수 있을겁니다.

//---------------------------

총점은 이 내용을 활용해서 먼저 For문을 RowCount돌리면서
ColCount를 돌리면서 값을 Sum 하면 될듯합니다.
^^;

초보자가 한번 글을 올려보고 싶어서 .  그냥 올립니다. ㅜㅜ

아직 잘 이해를 못했습니다..;
       aTempT[i], aTempF[i] 이걸 변수선언을 해줘야 하는건가요??

죄송한데 이것만 컴파일 해주시면 안될까요??;;보면 이해할것 같아서요

물론 배열 변수로 선언해야 합니다.
배열(array) 선언 하시고


aTempT[i] <-- 값넣는 부분에 aTemp[i]이라고 되어 있네요 이것도 손가락 버그 ^^ ,

aTempF[i]  <-- 이걸 sTempF[i] 라고 하셨네요 손가락 버그 ㅋㅋㅋ

^^ 그렇게 고치고 나니 잘 되네요...

그럼 수고하시고요,.. 숙제같은데 제가 도우면 안될것같은데.. ^^;

그럼 여기서 스트링 그리드2로 어떻게 넣죠??
for i :=1 to cnt do begin
   Form2.StringGrid1.Cells[0, i] := usr_name[i];
    //답안 작성자의 이름을 폼2의 스트링그리드 0열에 저장
   for j:= 1 to 10 do begin
     if  usr_ans[i, j] = answer[j] then
         Form2.StringGrid1.Cells[j, i] := 'O'  //답이 맞은 경우
     else  Form2.Stringgrid1.Cells[j, i] := 'X';  //답이 틀린 경우
     end; //for의 끝
   Form2.Stringgrid1.RowCount := i+1;  //RowCount 증가
   end;  //for의 끝
For i := 1 to StringGrid1.ColCount -1 do begin
  aTemp[i]  :=  0;
  sTempF[i]  :=  0;
    For j := 1 to StringGrid1.RowCount - 1 do begin
      if StringGrid1.Cells[i,j] = 'O' Then
        begin
          aTemp[i] := aTemp[i] + 1;
        end
      else begin
        sTempF[i] := sTempF[i] + 1;
      end;
    end;
end;