Fórum Funcao q faz um select dentro de uma dll nao funciona ?? pq #330646

Pq essa funcao nao funciona dentro da dll ?

Function PreencheComboFamiliaESubFamilia (TP_Consulta: Smallint; DtBase : TIBDataBase; Cbox : TComboBox): Boolean;
var
IBDSFamilia : TIBDataSet;
begin
IBDSFamilia := TIBDataset.Create(Application);
IBDSFamilia.Database := DtBase;
Cbox.Clear;
if TP_Consulta = 1 then // 1 é familia e 2 é subfamilia
begin
IBDSFamilia.Close;
IBDSFamilia.SelectSQL.Clear;
IBDSFamilia.SelectSQL.Add(´Select * from Familia where ATIVO_FAM = 1´);
IBDSFamilia.Open;
IBDSFamilia.First;
while not IBDSFamilia.Eof do
begin
Cbox.Items.Add(PreencheComZerosAEsquerda(IntToStr(IBDSFamilia.FieldByName(´ID_FAM´).Value),3)+´ - ´+IBDSFamilia.FieldByName(´DS_FAM´).Value );
IBDSFamilia.Next;
end;
IBDSFamilia.Close;
IBDSFamilia.Free;

end;

Result := True;
end;