Сделать добавление через динамические структуры данных

 begin
strngrd1.Cells[0,i]:=edt2.Text;  
strngrd1.Cells[1,i]:=edt3.Text;
strngrd1.Cells[2,i]:=edt4.Text;
strngrd1.Cells[4,i]:=sdtdt1.text;
strngrd1.Cells[5,i]:=cbb1.Text;
 i:=i+1; strngrd1.RowCount:=strngrd1.RowCount+1;
 
 end;

procedure StringGridAddLine(sgrid:TStringGrid; const LineText: TStringList);
begin
  with sgrid do begin
  if (length(Cells[0,RowCount-1])>1) then RowCount:=RowCount+1;
  Rows[RowCount-1].Text:=LineText.Text;
  end;
end;
 
<...>
 
var s:TStringList;
begin
 
s:=TStringList.Create;
s.Add(edt2.Text);
s.Add(edt3.Text);
s.Add(edt4.Text);
s.Add(sdtdt1.text);
s.Add(cbb1.Text);
StringGridAddLine(StringGrid1, s);
StringGridAddLine(StringGrid1, s);
StringGridAddLine(StringGrid1, s);
s.free;
 
end;

procedure TForm1.btn5Click(Sender: TObject);
var
i, j: Integer;
begin
 
 if (edt4.Text='') or (edt3.Text ='') or (edt2.Text='')
                   or (sdtdt1.Text='') or (cbb1.text='')
 then
       begin
 ShowMessage('Ââåäèòå çíà÷åíèÿ') ;
       end
 else
  begin
   strngrd1.RowCount := strngrd1.RowCount + 1;
  for j := strngrd1.RowCount - 1 downto 2 do
  for i := 0 to strngrd1.ColCount - 1 do
strngrd1.Cells[i, j] := strngrd1.Cells[i, j - 1];
strngrd1.Cells[0,1]:=edt2.Text;
strngrd1.Cells[1,1]:=edt3.Text;
strngrd1.Cells[2,1]:=edt4.Text;
  if   srdbtn2.Checked = True then strngrd1.Cells[3,1]:='Ìóæñêîé'
  else
strngrd1.Cells[3,1]:='Æåíñêèé'   ;
strngrd1.Cells[4,1]:=sdtdt1.text;
strngrd1.Cells[5,1]:=cbb1.Text;
 
 
 
  end;
end;