Fonksiyon Bölme işlemi hesaplama hatası

[naturelmania]

Arkadaşlar bir fonksiyon yazdım fakat fonksiyondaki değişkenleri extended olarak belirlediğim halde program bölme yaparken "invalid floating point operation" hatası veriyor. Bölme yerinde başka işlem +, -,* gibi koyduğumda sorun yok. Yalnızca bölmede hata veriyor.
İnteger tipleri birbirine böldüremediğimi biliyorum o yüzden extended olarak belirledim, ama ne yaptıysam hata devam ediyor.
Acaba nerde hata yapıyorum ya da fonksiyonu belirlerken mi hata yapıyorum??? Not:ilk defa fonksiyon tanımladım

Kod: Tümünü seç

//Fonksion bu
function TabloD(Ortsky1,ortsky2,Zortsky1,Zortsky2,ZV1:extended):extended;
begin
   TabloD:= ((((OrtSky2-OrtSky1)*(zv1-zortsky1))/(zortsky2-zortsky1))+OrtSky1);
end;




//Bu da yürütme bölümü

Procedure button1.Click(Sender:Tobject)
begin
            i:=0;
            SetLength(DSkyU,vua);
            z:=1;
            for k := 1 to vua do
            begin
              inc(i);
              if (i mod strtoint(Form2.Kutu4.Text))=0 then inc(z);
              inc(ADSkyU);
              DSkyU[ADSkyU]:= TabloD(SkyOrtU[z],SkyOrtU[z+1],ZSkyOrtU[z],ZSkyOrtU[Z+1],ZVU[z]);
            end;

[naturelmania]

Arkadaşlar acı ama gerçek Sorunumu kendi kendime çözdüm...
Floating point hatasını koddaki Form2.Kutu4.Text ten gelen değerin olması gerekenden daha az olması nedeniyle inc(z) yapıp bi üst seviyeye geçiyor fakat o değerler benim elimdeki deneme verisinde olmadığı için 0 oluyor ve bölmede hata oluyor

[rsimsek]

Bölme işlemlerinde ya bölenin sıfır kontrolü yapılmalı ya da try / except / end içinde yapmalı

[naturelmania]

@rsimsek hocam haklısınız.
bunu da eklersem hata payım iyice düşecek
teşekkür ederim