grid verisinin uzunluğunu hesaplama

   void calculeteLenght;
  var
    rowLenght,i,j  : Integer;
    {
      rowLenght=0;
      while(grdSonuc.Cells[j,i] <> nil)
      {
        Inc(i);
        while(grdSonuc.Cells[j,i] <> nil)
        {
          Inc(i);
          if(Length(grdSonuc.Cells[j,i])  < rowLenght)
          {
            rowLenght=Length(grdSonuc.Cells[j,i]);
            ShowMessage(rowLenght);
          }
          if(grdSonuc.Cells[j,i]  == nil) 
            break;
          /*if(j==11)
          {
            ShowMessage("!!!!LOOOP!!!!");
            ShowMessage(rowLenght);
            break;
          }*/
        }
      }
    }

bu fonksiyonu kullanarak grid verisinin uzunluğunu hesaplamaya çalışıyorum ancak hata alıyorum. hata kodu aşağıdadır.
TclForm
Invalid class typecast
Clomosy Build : 20240709.111531

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
kursat Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Haziran 2024 Konum: konya Durum: Aktif Değil Puanlar: 37	Mesaj Seçenekleri Yanıt Yaz Alıntı kursat Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: grid verisinin uzunluğunu hesaplama Gönderim Zamanı: 12 Temmuz 2024 Saat 14:40
	void calculeteLenght; var rowLenght,i,j : Integer; { rowLenght=0; while(grdSonuc.Cells[j,i] <> nil) { Inc(i); while(grdSonuc.Cells[j,i] <> nil) { Inc(i); if(Length(grdSonuc.Cells[j,i]) < rowLenght) { rowLenght=Length(grdSonuc.Cells[j,i]); ShowMessage(rowLenght); } if(grdSonuc.Cells[j,i] == nil) break; /if(j==11) { ShowMessage("!!!!LOOOP!!!!"); ShowMessage(rowLenght); break; }/ } } } bu fonksiyonu kullanarak grid verisinin uzunluğunu hesaplamaya çalışıyorum ancak hata alıyorum. hata kodu aşağıdadır. TclForm Invalid class typecast Clomosy Build : 20240709.111531