[Vitya05]

Помогите пожалуйста.
Вот я написал так. Но так написанный код принимает как барьер 10 строку и 15 столбец "StringGridа" целиком...

Код:

For i := 1 to n do // Заполняем ячейки, согласно правилам игры
  For j := 1 to n do
  begin
  if j=15 then
  StringGrid1.Cells[j-1,i+30] := '/';
  if i=10 then
  StringGrid1.Cells[j+30,i-1] := '/';
  If (StrToInt( mass_2[i,j] ) >= 1)and (StrToInt( mass_2[i,j] ) <=3)
  and ((j<>15) and (i<>10)) then StringGrid1.Cells[j-1,i-1] := '*';
  If (StrToInt( mass_2[i,j] ) > 3 ) then StringGrid1.Cells[j-1,i-1] := ''
  end;

мне нужно чтобы '*' принимали как барьер ту часть столбца или строки где есть '/' а не всю строку или столбец. Как это сделать мне?