Consulta com ADOQuery

Boa tarde pessoal sou nova aqui no Forum , estou com um problema e não consigo resolver
eu preciso consultar a referencia de um produto, em um edit ele faz a pesquisa certinho mais quando não encontra da o erro de BOF e EOF não são verdadeiros, como resolvo isso
Segue meu codigo

ADOQuery1->Active = false;
Sleep(1000);
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text =(´Select *From Interno´);
ADOQuery1->Open();
ADOQuery1->Active = true;
if ( ! ADOQuery1->Eof)
{
ADOQuery1->Close();
}
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(´Select *From Interno WHERE((Referencia) Like :Nome)´´Order By Código´ );
ADOQuery1->Parameters->ParamByName(´Nome´)->Value = UpperCase(Edit1->Text)+´¬´;
ADOQuery1->Open();

}