В чем ошибка?

[pu4koff]

Ну тогда через TryStrToInt. Там как-то так вроде:

if (not TryStrToInt(StringGrid1[i,j], a[i,j]))
  then a[i,j] := 0;

[apromix]

Вот функция в помощь:

// Строка число или нет?
function IsNumber (const D: String): Boolean;
var
   I: Integer;
begin
     result := false;
     for I := 1 to length (D) do
         if not (D[i] in ['0'..'9']) then
            exit;
     result := true;
end;