[sanxpue]

procedure TForm1.B_TClick(Sender: TObject);
var
  Cols, Reng, Numero: Integer;
  A : String;
Begin
  Randomize;
  E_1.Text := A;
  For cols := 0 to 9 do
    For reng := 0 to 9 do
    begin
      Numero := Random(101);
      SG_1.Cells[Cols,Reng] := IntToStr(Numero);
      //aqui esta tu error por que nunca inicializas con un numero tu
      //variable A y A en este momento esta vacio
      // y por eso te marca el error en StrToInt(A)
      
      If  StrToInt(A) = Numero then
        Showmessage(A);
    end;
end;

end.