Problemas con un Grid ( integer values )

[aragorneuf]

Pues he hecho esto: Cambiar La variable A de String a Integer, ya me corre pero no me marca las veces que se repite el numero que dio el usuario, siempre me marca 0.

  
procedure TForm1.B_TClick(Sender: TObject);
var
Cols, Reng, Numero: Integer;
A : Integer;
Begin
Randomize;
E_1.Text := IntToStr(A);
For cols := 0 to 9 do
For reng := 0 to 9 do
begin
Numero := Random(101);
SG_1.Cells[Cols,Reng] := IntToStr(Numero);
if A = Numero then
Showmessage(IntToStr(A));
end;
end;
end.

De antemano Gracias