Fórum MINHA PRIMEIRA PROCEDURE DE ERRO #56010

Amigos testei a procedure direta no ibexpert funcionou no entanto no delphi 7 nao ta funcionando acho q é a chamada minha primeira procedure

alguem poderia dar uma olhadinha para mim por favor!?

procedure TFrmCadInicial.Image1Click(Sender: TObject);
begin
inherited;
if edtTipo.Text = ´I´ then //testo a condição de inserção no edittipo
begin
IF Ativo.Checked = true then //testo se a opção escolhida foi ATIVO
STATUS := 1; //se verdadeiro VARIAVEL GLOBAL STATUS RECEBE 1
IF Inativo.Checked = true then //testo se a opção escolhida foi INATIVO
STATUS := 0; //se verdadeiro VARIAVEL GLOBAL STATUS RECEBE 0
//tiro os espaços nos edits com a função TRIM
Trim(EdtCodigo.Text);
Trim(EdtValor.Text);
Trim(edtTipo.Text);

DM.ConnM.Open;
DM.SPM.StoredProcName := ´SP_DISCIPLINA´; //chamo a stored procudere
//começo a passar os parametro
DM.SPM.ParamByName(´DISC_CODIGO´).Value := STRTOINT(EdtCodigo.Text);
DM.SPM.ParamByName(´DISC_NOME´).Value := Trim(EdtNome.Text);
DM.SPM.ParamByName(´DISC_STATUS´).Value := STATUS;
DM.SPM.ParamByName(´DISC_VALOR´).Value := (EdtValor.Text);
end;

DM.SPM.ExecProc;

end;



OBRIGADO!