Вызов СОМ обьекта

ilyaae

Добрый день. Подскажите пожалуйста по конструкции:
Есть соединение, добавлен компанент ADOQuery, в запросе параметр. И собственно вопрос, а как передать значение параметру?

tReport = CreateObject("FastReport.TfrxReport")
tParam = CreateObject("FastReport.TfrxParams")
tReport.Resources.LoadLanguageResourcesFromFile('c:\Russian.frc')
tReport.LoadReportFromFile("c:\ReestrMail.fr3")

tReport.TParams('Taskid';152) -- Как правильно передать параметр в ADOQuery

tReport.ShowReport()

gpi

Dim report As FastReport.TfrxReport

Private Sub Command1_Click()
  Dim Query As FastReport.TfrxADOQuery
  Dim Param As FastReport.IfrxParamItem
  Set Query = report.FindObjectEx("ADOQuery1")
  If Query Is Nothing Then Return
  Set Param = Query.ParamByName("salary_limit")
  If Param Is Nothing Then Return
  Param.Expression = Text1.Text
  Set Param = Nothing
  report.ShowReport
  Set Query = Nothing
End Sub

Private Sub Form_Load()
    Set report = CreateObject("FastReport.TfrxReport")
    report.LoadReportFromFile ("Parameter_demo.fr3")
End Sub