Pues esto fue lo que hice:
Código:
var
Primo: Boolean;
cols, reng, numero, Buscando: integer;
begin
randomize;
Buscando:= StrToInt(E_1.text);
for cols:=0 to 9 do
for reng:=0 to 9 do
begin
Primo:= True;
Numero:=random(101);
SG_1.Cells[Cols,Reng] := IntToStr(Numero);
If numero = Buscando then
M_1.Lines.Add(IntToStr(Cols) + ',' + IntToStr(Reng));
end;
end;
end.