Так?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var x,y, xi,yi: integer;
begin
x:=random(5); //размер грида
Y:=random(5);
for xi:=-1 to 1 do
for yi:=-1 to 1 do
if (x+xi>=0) and (y+yi>=0) then //Cначало очищаю поле 3х3
stringgrid1.Cells[x+xi,y+yi]:='';
stringgrid1.Cells[x,y]:=inttostr(10);// Потом вписываю какое-то число
end;
Я очищаю поле 3 на 3 .
Если нужен вариант, что программа лазит по гриду и ищет свободное поле, то тут логически можно переделать код