在Delphi中OnChange unknow参数

Question

我有程序：

procedure TFMain.CariNamaChange(Sender: TObject);
begin
ADOQdata.Close;
ADOQdata.SQL.Clear;
ADOQdata.SQL.Add('SELECT * FROM data WHERE nama like :nam');
ADOQdata.Parameters.ParamByName('nam').Value := CariNama.Text;
ADOQdata.open;
end;

如果我编译，则发现错误：

  

未找到ADOData参数nam

帮助我。