Problemas con un Grid ( integer values )

[aragorneuf]

Me aparece este error ' no es un valor ineger ' cuando hice un programa que mas o menos dice así:

Rellenar una Grid de 10 x 10 con números aleatorios comprendidos entre el 0 y el 100 y posteriormente encontrar cuantas veces se repite un número dado/indicado por el usuario.

Lo que yo hice fue esto :

  
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);
If  StrToInt(A) = Numero then
Showmessage(A);
end;
end;
end.

De antemano mil gracias.