Нужно, чтобы переносились из одного stringgrid в другой. Переносится, но на те же строки и образуются пустые строки

var
   i: integer;
begin
StringGrid2.Show;
    StringGrid2.Cells[1, 0]:=label1.caption;
  StringGrid2.Cells[2, 0]:=label2.caption;
  StringGrid2.Cells[3, 0]:=label3.caption;
 
  StringGrid2.Cells[4, 0]:=label7.caption;
 
   StringGrid2.Cells[5, 0]:=label4.caption;
 
        StringGrid2.Cells[0, 0]:='№';
 
    for i := 1 to StringGrid1.RowCount -1 do
  if strtoint(StringGrid1.Cells[5,i])<=2 then StringGrid2.Cells[0,i] :=StringGrid1.Cells[0,i];
    for i := 1 to StringGrid1.RowCount - 1 do
  if strtoint(StringGrid1.Cells[5,i])<=2 then StringGrid2.Cells[1,i] :=StringGrid1.Cells[1,i];
    for i := 1 to StringGrid1.RowCount - 1 do
  if strtoint(StringGrid1.Cells[5,i])<=2 then StringGrid2.Cells[2,i] :=StringGrid1.Cells[2,i];
    for i := 1 to StringGrid1.RowCount - 1 do
  if strtoint(StringGrid1.Cells[5,i])<=2 then StringGrid2.Cells[3,i] :=StringGrid1.Cells[3,i];
    for i := 1 to StringGrid1.RowCount - 1 do
  if strtoint(StringGrid1.Cells[5,i])<=2 then StringGrid2.Cells[4,i] :=StringGrid1.Cells[4,i];
    for i := 1 to StringGrid1.RowCount - 1 do
  if strtoint(StringGrid1.Cells[5,i])<=2 then StringGrid2.Cells[5,i] :=StringGrid1.Cells[5,i];
 
 
 with StringGrid2 do
 for i:= 0 to RowCount do begin
 StringGrid2.Cells[0, i]:=IntToStr(i);
      StringGrid2.Cells[0, 0]:='№';
 end;
   end;

procedure TForm1.Button1Click(Sender: TObject);
var i, k: integer;
begin
 for i := StringGrid2.FixedRows to StringGrid2.RowCount - 1 do
  StringGrid2.Rows[i].Clear;
 StringGrid2.RowCount := StringGrid2.FixedRows + 1;
 StringGrid2.Rows[0].CommaText := Format('%s,"%s","%s","%s","%s","%s"', ['№', Label1.Caption, Label2.Caption, Label3.Caption, Label7.Caption, Label4.Caption ]);
 StringGrid2.Visible := true;
 k := StringGrid2.FixedRows;
 for i := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
  if StrToInt(StringGrid1.Cells[5, i]) <= 2 then
   begin
    StringGrid2.Rows[k] := StringGrid1.Rows[i];
    StringGrid2.Cells[0, k] := IntToStr(k);
    StringGrid2.RowCount := StringGrid2.RowCount + 1;
    inc(k);
   end;
 StringGrid2.RowCount := StringGrid2.RowCount - 1;
end;