Ya quedo, esto fue lo que hice:
Código:
procedure TForm1.B_TClick(Sender: TObject);
var
cols, reng, numero, mayor: integer;
begin
randomize;
mayor:=0;
for cols:=0 to 9 do
for reng:=0 to 9 do
begin
Numero:=random(101);
SG_1.cells[cols,reng]:= inttostr(Numero);
if numero > mayor then
mayor:= numero;
end;
showmessage(inttostr(Mayor));
end;
end.
Gracias a todos por la ayuda.