Fórum Ajuda com dbExpress SqlDataSet - Procedimento Gravar #294774

Não consigo compilar o código no Delphi.

---
erro
[Error] Unit1.pas(56): Undeclared identifier: ´ExecProc´
---

Estou usando o dbExpress
componentes
SqlDataSet

Botão Gravar:

procedure TForm1.GravarClick(Sender: TObject);
begin
with Modulo.SpGer_Marca do
begin
Params[0].AsInteger := 1;
Params[1].AsString := ´´;
Params[2].AsString := EdtNome.Text;
ExecProc; < erro nesta linha+++++
Modulo.setMarca.Active := False;
Modulo.setMarca.Active := True;
end;
end;

-----------------------------------------------------------
No banco está tudo certo
-----------------------------------------------------------
Banco de Dados:
InterBase
Procedimento no banco de dados:

CREATE PROCEDURE GER_MARCA (
TIPO INTEGER,
ID_MARCA INTEGER,
MARCA VARCHAR(175))
RETURNS (
RESPOSTA VARCHAR(1))
AS
begin
if (TIPO = 1) then
if (not exists (select * from Tab_Marca where MARCA = :MARCA)) then
insert into Tab_marca (Marca) values (:MARCA);
else
RESPOSTA = ´X´;
else
if (:TIPO = 2) then
if (not exists (select * from Tab_modelo where ID_MARCA = :ID_MARCA)) then
delete from Tab_marca where ID_MARCA = :ID_MARCA;
else
RESPOSTA = ´X´;
else
if (:TIPO = 3) then
update Tab_marca set MARCA = :MARCA where ID_MARCA = :ID_MARCA;
suspend;
end
---------------------------------------------------------------