定位记录，删除后定位到下一条记录上

procedure TFrm_yaopinzidian.DBGridEh1CellClick(Column: TColumnEh);
begin

　　ADOQuery_Select.Next; //向下移动一条记录，再移动回去
　　LocateRecord_next:=ADOQuery_Select.FieldValues['cpid'] ;
　　ADOQuery_Select.Prior;end.