Bu udf neden çalışmıyor?

[softdestek]

Bu udf çağırınca firebird bağlantısı kopuyor hata nerde acaba?
Udf nin yapacağı iş şu string içindeki nokta sayısnı bulacak..
Bu udf yi delphiturkiye.dll içindeki procedureların yanına ekliyorum hata mesajı alıyorum sebebi nedir
Kullandığım Firebird versiyonu 2.5

Fakat Firebird 1.5 de bu udf çalışıyor.

select SEVIYEBUL('600.01.01') from rdb$database


FUNCTION SEVIYEBUL(HESAPKODU:Pchar):integer;
var
adet : integer;
sayac:integer;

begin
adet:=0;
sayac:=0;

for sayac:=0 to system.Length(string(hesapkodu))-1 do begin

if string(hesapkodu[sayac])='.' Then begin
adet:=adet+1;
end;

end;
result:=adet;
end;

[Kuri_YJ]

Selamlar,

Foruma soru sorarken yeterince detay vermelisiniz. Ne hatası verdiğine ilişkin veya hata koduna ilişkin bir şey göremedim. Hata veriyor demişsiniz ama ne hatası?

Kolay Gelsin
Adnan