请问怎样判断dbgrid里的纪录被选中了？

Question

我想用代码删除选中的纪录
 procedure TSyybmsetForm.btnDeleteClick(Sender: TObject);
begin
 if ？ then //这理怎样判断dbgrid里的纪录被选中了，只要知道选中了纪录不用判断是哪一条。
   begin
     if MsgQuestion('确定要删除该营业部门吗？')then
       dbgrd1.DataSource.DataSet.Delete
       else
        lbledtCode.SetFocus;
   end
   else
    begin
     lbledtCode.SetFocus;
     exit;
    end;
 end;

Answer 1

var
  i: Integer;
  Book: TBookStr;
begin
  Book := DBGrid.DataSource.DataSet.Book;
  try
    for i := 0 to DBGrid.SelectedRows.Count - 1  do
    begin
      DBGrid.DataSource.DataSet.Book := DBGrid.SelectedRows[i];
      ShowMessage(DBGrid.DataSource.DataSet.Fields[0].AsString);
    end;
  finally
    DBGrid.DataSource.DataSet.Book := Book;
  end;