for i:=1 to self.StringAlignGrid1.RowCount-2 do
  begin
    with f_datamodule.ADOQuery2 do
    begin
      close;
      sql.Clear ;
      sql.Add('insert into t_indetail(partno,project,quantity,memo,summary) values(:itemid,:itemproject,:qty,:memo,:summary)  ') ;
      parameters.ParamByName('itemid').Value :=trim(self.StringAlignGrid1.Cells[0,i]);
      parameters.ParamByName('itemproject').Value :=trim(self.StringAlignGrid1.Cells[4,i]);
      parameters.ParamByName('qty').Value :=strtofloat(self.StringAlignGrid1.Cells[5,i]);
      parameters.ParamByName('memo').Value :=trim(self.StringAlignGrid1.Cells[6,i]);
      parameters.ParamByName('summary').Value :=trim(self.Edit1.Text );
      execsql;
    end;
  end;