delphi 关于stringgrid的问题

我固定了stringgrid得第一行第一列为固定行列，然后我用了一个删除按钮来删除表格中的某一项，一行一行的删除，删除一行后下行顶上，全部删除完后，活动单元格变成了固定的第一行，就是第一行第二列变成了蓝色，并且可以修改了，可是我把它设置为固定行了啊。我就想让他为固定的不可修改的。
// delete row
procedure TForm1.DeleteRow(Row: Integer);//删除的函数
var
i : integer;
begin
if (Row < StringGrid1.RowCount) and (Row > Stringgrid1.FixedRows-1) then
　if Row < StringGrid1.RowCount - 1 then
　begin
　　for i := Row to StringGrid1.RowCount-1 do
　　　StringGrid1.Rows[i] := StringGrid1.Rows[i+1];
　　StringGrid1.RowCount := StringGrid1.RowCount - 1;
　end
　else stringGrid1.Rows[Row].Clear;
end;

你是不是把那行删掉了

删除前判断下要删除的行是不是第一行，如果是则不删

判断是否是第一行，是就清空，但不是删除

RowCount还是1,删除RowCount是0