Fórum Dúvida em chamada de Stored Procedure #321822

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;