Crystal Rapor Sayıyı Yazıya Çevirmek

Local stringvar array Birler := ["BİR", "İKİ", "ÜÇ", "DÖRT", "BEŞ", "ALTI", "YEDİ", "SEKİZ", "DOKUZ"];
Local stringvar array Onlar  := ["ON", "YİRMİ", "OTUZ", "KIRK", "ELLİ", "ALTMIŞ", "YETMİŞ", "SEKSEN", "DOKSAN"];
Local stringvar array Yuzler := ["BİN", "MİLYON", "MİLYAR", "TRİLYON", "TRİLYAR"];
 
Stringvar YaziIle;
numbervar deger;
numbervar deger000;
Numbervar Uzunluk;
Numbervar I;
Numbervar K;
Numbervar j;
stringvar ssayi;
Numbervar lSayi;
numbervar deneme:=1163.94;

 
sSayi := sSayi := CStr (abs(int(deneme)), 0 , "");
YaziIle := "";
Uzunluk := Len(sSayi);

For I := 1 To Uzunluk do
(
               deger := cdbl(Mid(sSayi, I, 1));
               J := Uzunluk - I + 1;
               K := J Mod 3 ;
               Select K
                      Case 1:
                            (
                            If deger <> 0 Then
                                YaziIle := YaziIle + Birler[deger];
                          
                            If J > 3 Then
                                   (
                                   K := J / 3;
                                   YaziIle := YaziIle + Yuzler[K];
                                   )
                            )
                      Case 2 :
                            If deger <> 0 Then
                               YaziIle := YaziIle + Onlar[deger]
                      Case 0 :
                            (
                            deger000 := cdbl(Mid(sSayi, I, 3));
                            If deger000 = 0 Then
                                I := I + 2;
                            //Else
                            If deger <> 0 and deger000 <> 0 Then
                                     If deger = 1 Then
                                         YaziIle := YaziIle + "YÜZ"
                                     Else
                                         YaziIle := YaziIle + Birler[deger] + "YÜZ"
                             );
);
YaziIle := YaziIle & "    TL    ";
 
lSayi := 100 * (deneme - round(deneme,0));
if lSayi  <  0 then
   lSayi := 100 - (-1 * lSayi);

sSayi := CSTR(lSayi, 0,"");
 
Uzunluk := Len(sSayi);

For I := 1 To Uzunluk do
(
               deger := cdbl(Mid(sSayi, I, 1));
               J := Uzunluk - I + 1;
               K := J Mod 3 ;
               Select K
                      Case 1:
                            (
                            If deger <> 0 Then
                                YaziIle := YaziIle + Birler[deger];
                          
                            If J > 3 Then
                                   (
                                   K := J / 3;
                                   YaziIle := YaziIle + Yuzler[K];
                                   )
                            )
                      Case 2 :
                            If deger <> 0 Then
                               YaziIle := YaziIle + Onlar[deger]
                      Case 0 :
                            (
                            deger000 := cdbl(Mid(sSayi, I, 3));
                            If deger000 = 0 Then
                                I := I + 2;
                            //Else
                            If deger <> 0 and deger000 <> 0 Then
                                     If deger = 1 Then
                                         YaziIle := YaziIle + "YÜZ"
                                     Else
                                         YaziIle := YaziIle + Birler[deger] + "YÜZ"
                             );
);

YaziIle := YaziIle & ""; 

arkadaşlar crystal raporda rakamı yazıya çevirmek için bu sitede  böyle
bir fonksiyon buldum fakat bu fonksiyonda 1500 rakamı çevireceği zaman
birbinbeşyüz olarak çeviriyor bu hatayı nasıl düzeltebilirim?