[lmikle]

И в чем проблема?

Код:

var
  C, R : Integer;
  N : Integer;
  I : Integer;
  S : Integer;
begin
  // Генерируем позицию и само число
  C := Random(10);
  R := Random(10);
  N := Random(10);
  StringGrid1.Cell[C,R] := N;

  // Считаем сумму по строке и столбцу
  S := 0;
  For I := 0 To 9 Do 
    S := S + 
           TryStrToInt(StringGrid.Cell[C,I]) + 
           TryStrToInt(StringGrid1.Cell[I,R]);

  // Проверяем
  If S = 3*N 
    Then ShowMessage('Совпадает!') 
    Else ShowMessage('Не совпадает!');
end;