Crear una Grid con numeros aleatorios ¿Como le hago?

[aragorneuf]

Ya quedo, esto fue lo que hice:

  
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.