Ошибка "Record, object or class type required"

procedure TForm_post_tovar.Button2Click(Sender: TObject);
begin //Удалить запись, если записи отсутствуют, то вывести сообщение, иначе запись удалить
  if dbgrid1.DataSource.DataSet.RecordCount<>0 then
    begin
     if (MessageBox(Handle, 'Вы действительно хотите удалить запись?', 'Удаление', MB_YESNO)=  IDYES) then
      begin
        dm.table_post_tovar.Edit;
        form_post_tovar1.table_magazin.Edit; //из таблицы магазин
        dm.ADOQuery_delete.SQL.Clear;
        dm.ADOQuery_delete.DataSource:=dm.post_tovar;
        dm.ADOQuery_delete.SQL.Add('DELETE Магазин.*, Магазин.Код FROM Магазин WHERE (((Магазин.Код_post_tovar)=:Код));');
        dm.ADOQuery_delete.ExesSQL;
        dm.ADOQuery_delete.Active:=false; //из таблицы post_tovar
        dm.table_post_tovar.Edit;
        dm.table_podt_tovar.Delete;
      end;
      end
     else ShowMessage('Нет записей для удаления');
end;

with dm.ADOQuery_delete do begin
  DataSource:=dm.post_tovar;
  SQL.Text:='DELETE Магазин.*, Магазин.Код FROM Магазин WHERE (((Магазин.Код_post_tovar)=:Код));';
  ExecSQL;
  Close;
end;

unit post_tovar;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls;
 
type
  TForm_post_tovar = class(TForm)
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form_post_tovar: TForm_post_tovar;
 
implementation
 
{$R *.dfm}
Uses general, dm1, post_tovar1;
procedure TForm_post_tovar.Button1Click(Sender: TObject);
begin //Новая запись
  form_post_tovar.Caption:='Поступление товара: новое';
  dm.table_post_tovar.Edit;
  dm.table_post_tovar.Append;
  form_post_tovar1.DateTimePicker1.Date:=sysutils.Date;
  form_post_tovar1.doc_number.Text:='';
  form_post_tovar.ShowModal;
end;
 
procedure TForm_post_tovar.Button2Click(Sender: TObject);
begin //Удалить запись
//если записи отсутствуют, то вывести сообщение, иначе запись удалить
  if dbgrid1.DataSource.DataSet.RecordCount<>0 then
    begin
     if (MessageBox(Handle, 'Вы действительно хотите удалить запись?', 'Удаление', MB_YESNO)=  IDYES) then
      begin
        dm.table_post_tovar.Edit;
        form_post_tovar1.table_magazin.Edit; //из таблицы магазин
        with dm.ADOQuery_delete do begin
        DataSource:=dm.post_tovar;
        SQL.Text:='DELETE Магазин.*, Магазин.Код FROM Магазин WHERE (((Магазин.Код_post_tovar)=:Код));';
        dm.ADOQuery_delete.ExecSQL;
        Close;
        end;
        dm.table_post_tovar.Edit; // из таблицы post_tovar
        dm.table_podt_tovar.Delete;
      end;
      end
     else ShowMessage('Нет записей для удаления');
end;
 
end.

procedure TForm_post_tovar.Button2Click(Sender: TObject);
begin //Удалить запись
//если записи отсутствуют, то вывести сообщение, иначе запись удалить
  if dbgrid1.DataSource.DataSet.RecordCount<>0 then
    begin
     if (MessageBox(Handle, 'Вы действительно хотите удалить запись?', 'Удаление', MB_YESNO)=  IDYES) then
      begin        dm.table_post_tovar.Edit;        form_post_tovar1.table_magazin.Edit; //из таблицы магазин        with dm.ADOQuery_delete do begin
        DataSource:=dm.post_tovar;
        SQL.Text:='DELETE Магазин.*, Магазин.Код FROM Магазин WHERE (((Магазин.Код_post_tovar)=:Код));';
        dm.ADOQuery_delete.ExecSQL;
        Close;
        end;        dm.table_post_tovar.Edit;  //из таблицы post_tovar        dm.table_post_tovar.Delete;
        end;      end     else ShowMessage('Нет записей для удаления');
end;
 
end.