Pesquisa SQL em DLL ???

library Consulta;

uses
  SysUtils,
  Classes, DB, IBQuery, IBDatabase;

{$R *.res}

function Abrir( DtBase : TIBDatabase; Transacao : TIBTransaction; Codigo : integer ) : string;
var
  IBQry_Cliente : TIBQuery;
begin
  IBQry_Cliente := TIBQuery.Create(nil);
  IBQry_Cliente.Database := DtBase;
  IBQry_Cliente.Transaction := Transacao;
  IBQry_Cliente.SQL.Clear;
  IBQry_Cliente.SQL.Add( ´Select RAZAO from TB_CLIENTES where COD_CLIENTE = :CODIGO´ );
  IBQry_Cliente.ParamByName( ´CODIGO´ ).AsInteger := Codigo;
  IBQry_Cliente.Close;
  IBQry_Cliente.Open;
  Result := IBQry_Cliente.FieldByName( ´RAZAO´ ).AsString;
  IBQry_Cliente.Free;
end;

Exports
  Abrir;

begin
end.