Ошибка "Undeclared identifier: 'SQL'"

[sv11]

Здравствуйте!
Пишу процедуру удаления и delphi выдаёт ошибки.
Помогите, пожалуйста, их исправить!

Модуль выглядит так:

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_post_tovar.Delete;
      end;
      end
     else ShowMessage('Нет записей для удаления');
end;

end.

Ошибки следующие:
[Error] post_tovar.pas(46): Undeclared identifier: 'SQL'
[Error] post_tovar.pas(52): ';' expected but '.' found
[Error] post_tovar.pas(54): Declaration expected but end of file found

[Streletz]

В uses надо подключить модули, которые отвечают за ADO. В новых версиях Delphi это модули Data.DB, Data.Win.ADODB. Что, конкретно, следует подключать в более старых версиях так с ходу не могу сказать, так как уже давно с ними не работаю.
В принципе, Вы можете сами это посмотреть в модуле формы dm, с ADOQuery которой Вы работаете.

[lomastr_]

DELETE Магазин.*, Магазин.Код FROM Магазин

кто так научил?

[sv11]

Streletz, спасибо, я попробую.

[sv11]

lomastr_, а что, так неправильно?

[Аватар]

http://www.sql-tutorial.ru/ru/book_d...statement.html