excepcion

[nenufer]

Buenos dias!!
Utilizo firebird y delphi7.
Creo en delphi un procedimiento almacenado, (porque mas adelante lo puedo utilizar en otra base de datos). Si no esta creado se crea, hasta ahi bien.
El problema es cuando esta creado da un error EIBInterbaseError- 'Unsuccessful metadata update procedure CompruebaCampo already exists'. He hexo una busqueda por el foro y e encontrado algo de ayuda, pero sigo sin poder solucionar mi problema.

Añado a uses IB. Y en el codigo hago:

Código Delphi [-]
procedure TDM.ProcStorec();
begin
  try
    try
      with QrProcedimiento.SQL do
      begin
        Clear;
        Add('Create  procedure compruebaCampo (Campo varchar(30)) ');
        Add('Returns(Valor varchar(30)) as begin ');
        add('if (Campo is null) then Valor = ''(Null)''; ');
        Add('else Valor = ''Campo''; end');
        QrProcedimiento.open;
      end;
    except
       on E: EIBInterbaseError do
        showmessage('Procedimiento ya creado);
    end;
  finally
  end;
end;

Me sigue saliendo el mensaje de error y yo quiero q solo muestre el mio y continue con la ejecucion. He probado ya con varias cosas pero sin exito.
Si alguien puede ayudarme gracias de antemano.