[mik]

Надо сделать обработку события BeforeDelete для источника данных, к которому привязан DBGrid. Ну а в обработчике написать типа того:

Код:

  with DataSet do
  begin
    if RecNo < RecordCount then
    begin
      if MessageDlg('Запись - ' + IntToStr(RecNo) + ', не последняя.' +
        #13#10 + 'Вы действительно хотите удалить эту запись?',
        mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
        Abort;
    end;
  end;