存储过程赋值语句

procedure TFM.insmsg(iCategory: integer; sSender, sReceiver, sContent: string);
begin
  try
    self.sp_insmsg.Parameters.ParamByName('@sCate').Value := iCategory;
    self.sp_insmsg.Parameters.ParamByName('@sSender').Value := sSender;
    self.sp_insmsg.Parameters.ParamByName('@sReceiver').Value := sReceiver;
    self.sp_insmsg.Parameters.ParamByName('@sContent').Value := sContent;
    self.sp_insmsg.ExecProc;
  finally
  end;
end;