Código:
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.