При удалении строки из БД SQL возникает ошибка "ожидается параметр '@id'"

with Unit2.DataModule2.help_ADOQuery do
begin
Close;
SQL.Clear;
SQL.Add('exec del_pokupatel');
ExecSQL;
Unit2.DataModule2.pokupatel_ADOQuery.Active:=False;
Unit2.DataModule2.pokupatel_ADOQuery.Active:=True;
end;

 with Unit2.DataModule2.help_ADOQuery do
begin
Close;
SQL.Clear;
SQL.Add('exec del_pokupatel(2)');
ExecSQL;
Unit2.DataModule2.pokupatel_ADOQuery.Active:=False;
Unit2.DataModule2.pokupatel_ADOQuery.Active:=True;
end;

create procedure del_pokupatel(@id int)
as
begin
DELETE FROM pokupatel WHERE id = @id
end

 with Unit2.DataModule2.help_ADOQuery do
begin
Close;
SQL.Clear;
SQL.Add('exec del_pokupatel 2');
ExecSQL;
Unit2.DataModule2.pokupatel_ADOQuery.Active:=False;
Unit2.DataModule2.pokupatel_ADOQuery.Active:=True;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM [Имя Таблици]');
ADOQuery1.SQL.Add('WHERE ID = 1');
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [Имя Таблици]');
ADOQuery1.Active:=True;
except
end;

    with Unit2.DataModule2.pokupatel_ADOQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from pokupatel where pokupatel.id=1');
    Open;
  end;