急~！！！分数全给了~数据库操作问题

use xuejiguanli
go
create proc MR_Insert_XuanXiu
@XueHao varchar(20),
@KeChenHao varchar(20),
@FenShu numeric(4,1)
as
begin
insert into XuanXiu(XueHao,KeChenHao,FenShu)
  values(@XueHao,@KeChenHao,@FenShu)
end
go
  

procedure TForm_chengji.btn1Click(Sender: TObject);
begin
  with ADOQuery1 do
  begin
  Close;
  SQL.Clear;
  SQL.Add('MR_Insert_XuanXiu:XueHao,:KeChenHao,:FenShu');
  Parameters.ParamByName('XueHao').Value := edt1.Text;
  Parameters.ParamByName('KeChenHao').Value := edt2.Text;
  Parameters.ParamByName('FenShu').Value := edt3.Text;
  ExecSQL;
  end;
  ShowMessage('添加成功');
  Close;
end;



运行报错 ProjectProject raised exception class eoleexception with message'','附近有错误'

SQL.Add('Exec MR_Insert_XuanXiu :XueHao,:KeChenHao,:FenShu');

Delphi(Pascal) code

SQL.Add('Exec MR_Insert_XuanXiu :XueHao,