ActiveDelphi

[jea]

Pessoal por favor alguém me ajude a resolver o problema desta função. Estou querendo popular um combobox via banco de dados:

function ComboBox1BeforeShow($sender, $params)
{
global $DM; // Declarando o nosso data module.

$this->ComboBox1->Items = "--Selecione--"; // Atribui um valor ao primeiro item da Combo


$DM->tbESTADO1->Active = true; // Ativa o componente Table

$DM->tbESTADO1->open();// Executa a consulta referente a tabela

while(!$DM->tbESTADO1->EOF)
{
// Adiciona os valores vindos do banco ao Combo
$this->ComboBox1->AddItem($DM->TbESTADO1->ESTADO, NULL, $DM->TbESTADO1->ID_ESTADO);

$DM->tbESTADO1->next(); // Pega o próximo registro

}

$DM->TbESTADO1->close(); // Fecha o consulta

}

Quando rodo o programa aparece a sentença:
Fatal error: Call to undefined method stdClass::open()

obrigado jeamg.