Поиск минимального и максимального элемента в двухмерном массиве.

[grenles]

Можно попробовать так:

try
  a[i,J]:= StrToInt(StringGrid1.cells [i,J]);
except
 a[i,j] := 0; // или сообщение, что тут не число.
end;

И вся проверка.

По поводу закраски - вот нашел кусок

//Если ячейка получает фокус, то нам надо закрасить её другими цветами
if (gdFocused in State) then begin
// если ячефка в фокусе, то ее цвет меняется на черный, а символ - зеленый
   StringGrid1.Canvas.Brush.Color := clBlack;
   StringGrid1.Canvas.Font.Color := clWhite;
end
else  //Если же ячейка теряет фокус, то закрашиваем её красным и зелёным
   if (ACol = StringGrid1.ColCount-1) or
      (ARow = StringGrid1.RowCount-1)
      //Последняя колонка будет зелёной , другие - ячейки красными
    then StringGrid1.Canvas.Brush.color := clPaleGreen
    else StringGrid1.canvas.brush.Color := clPaleRed;

//Теперь закрасим ячейки, но только, если ячейка не Title- Row/Column
//Естеcтвенно это завит от того, есть у Вас title-Row/Columns или нет.

If (ACol > 0) and (ARow>0) then
  begin
      //Закрашиваем фон
    StringGrid1.canvas.fillRect(Rect);

      //Закрашиваем текст (Text). Также здесь можно добавить выравнивание и т.д..
    StringGrid1.canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]);
  end;

правда комментарии не очень соответствуют коду, но принцип глянуть пойдет