Stringgrid de seçili birden çok hücre

[Blackfox]

Stringgrid de seçili birden çok hücreye aynı değeri nasıl yazdırabilirim?

[mnt]

for i:=StringGrid1.Selection.Left to StringGrid1.Selection.Right do
for j:=StringGrid1.Selection.Top to StringGrid1.Selection.Bottom do
StringGrid1.Cells[i,j]:='Aynı';