[@Rafa3L]

Код:

with TStringGrid.Create(Self) do
begin
...
Name := 'sg'+inttostr(i);
...
end;

GridClean(FindComponent('sg'+inttostr(i)));
...