插入的问题

请大家帮忙看看下面代码添加第一次的时候插入2行，在点击一次就1行，怎么把他弄成每次点击都是1行啊

procedure TMain.N27Click(Sender: TObject);
var 
  i,frow:integer;
begin
  frow:=stringgrid1.row;//记录当前选定行的位置
  stringgrid1.rowcount:=stringgrid1.rowcount+1;
  for i:=stringgrid1.rowcount downto frow+1 do begin
  stringgrid1.Rows[i]:=stringgrid1.Rows[i-1];
  stringgrid1.Rows[frow+1].Clear;
  end;



end;

这跟你当前选中的行frow有关系吧，自己看看每次frow怎么变化的