delphi连接sql存储过程

ALTER PROCEDURE [dbo].[REName]
    @Gender    varchar(20)
AS
BEGIN
    select ROW_NUMBER() over(order by Name asc) as [序号],
    Name,Gender,Birthday,Mobile,Tel,Ctfld
    from dbo.name
    where Gender = @Gender OR @Gender IN ( NULL, ‘‘, ‘-1‘ )
END

procedure TForm1.FormShow(Sender: TObject);
begin
  if adoquery1.Active then adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text :=‘select distinct Gender    from dbo.name‘;
  adoquery1.Open;
  while not adoquery1.Eof do
  begin
    cbbSex.Items.Add(adoquery1.fieldbyname(‘gender‘).AsString);
    adoquery1.Next;
  end;
end;

procedure TForm1.cxGrid1DBTableView1DblClick(Sender: TObject);
begin
  try
    screen.Cursor :=crhourglass;
    adostoredproc1.Close;
    adostoredproc1.Parameters.ParamByName(‘@Gender‘).Value :=(cbbSex.Text);
    adostoredproc1.Open;
  finally
    screen.Cursor :=crdefault;
  end;
end;

procedure TForm1.cxButton1Click(Sender: TObject);
begin
  try
  adostoredproc1.Close;
  begin
    adostoredproc1.Parameters.ParamByName(‘@Gender‘).Value :=trim(cbbSex.Text);
    adostoredproc1.Open
  end;
  finally
    screen.Cursor :=crdefault
  end;
end;