Deleting a blank script for DBGrid in Delphi is not ERROR

procedure TForm1.Button1Click(Sender: TObject);
begin
If DM.ADOTableTes.RecordCount=0 then
begin MessageDlg('Data Kosong jadi tidak bisa dihapus',mtInformation,[mbOK],0)
end else
DM.ADOTableTes.Delete;
end;


Description:

- DM = DataModule who are at Delphi, where we put all the components of the connection
- ADOTableTes = Component ADOTable