Удаление и добавление в StringGrid

[Viarossa]

Добрый вечер! Возникла проблема с добавление. Суть в том, что после удаления строки из стринггрида форма добавления добавляет следующую строку через одну.
удаление строки

procedure TForm5.Button1Click(Sender: TObject);
var
  i,j: Integer;
begin
  j:=StringGrid1.Row;
  if (j = 1) and (StringGrid1.RowCount <= 2) then
   begin
    with StringGrid1 do
     for i:= 0 to ColCount - 1 do Cells[i, j]:= '';
    exit; 
   end;
  StringGrid1.Rows[j].Clear;
  for i:=j to StringGrid1.RowCount-2 do
    StringGrid1.Rows[i].Assign(StringGrid1.Rows[i+1]);

 Form1.StringGrid1.RowCount:=Form5.StringGrid1.RowCount;
    Form1.StringGrid1.ColCount:=Form5.StringGrid1.ColCount;
   for i := 0 to stringgrid1.ColCount-1 do
   for j := 0 to stringgrid1.rowCount-1 do
    Form1.stringgrid1.Cells[i,j]:=Form5.StringGrid1.Cells[i,j];

end;

Добавление строки

          
procedure TForm11.BitBtn1Click(Sender: TObject);
var i,j:Integer;

begin
if Form1.StringGrid1.Cells[0, 0]<>'' then Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;
Form1.StringGrid1.Cells[1,x]:=Edit2.Text;
Form1.StringGrid1.Cells[2,x]:=Edit3.Text;
Form1.StringGrid1.Cells[3,x]:=Edit4.Text;
Form1.StringGrid1.Cells[4,x]:=Edit5.Text;
Form1.StringGrid1.Cells[5,x]:=IntToStr(StrToInt(Edit4.Text)*StrToInt(Edit5.Text));
Form1.StringGrid1.Cells[6,x]:=Edit7.Text;
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';

Edit7.Text:='';
Form1.StringGrid1.Visible:=true;
inc(x);
end;

как можно это исправить?
Заранее спасибо за помощь!