Formatçã com UDF

 Pessoal, A função que estou tentando desolver, é a seguinte: library Formatacoes; uses SysUtils, Classes; {$R *.RES} function FuncFormataFloat(pdValor: Double; psMascara: PChar): PChar; export; begin Result := PChar(FormatFloat(PChar(psMascara), pdValor)); end; exports FuncFormataFloat; begin end. Estou registrando no Firebird da seguinte forma: declare external function FuncFormataFloat Double Precision, Varchar(30) returns Varchar(30) entry_point 'FuncFormataFloat' module_name 'Formatacoes.dll'; Para testar estou dando o seguinte comando: SELECT FUNCFORMATAFLOAT(2.3,'0.00') FROM RDB$DATABASE Porém não me retorna nada. O que estou fazendo de errado. Alguém pode me ajudar ??? Grato,