sql sorgu ile veri çekme

void setSatisKdv;

    {

      getKdvQuery = TclSQLQuery.Create(Nil);

      Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.158', 'sa', '1', 'CINAR', 50000); 

      getKdvQuery.Connection = Clomosy.DBSQLServerConnection;

        try

          //getKdvQuery.Sql.Text='exec ZZZProcStokKdvGetir';    //donuyor

          //getKdvQuery = Clomosy.DBSQLServerQueryWith('exec ZZZProcStokKdvGetir');   //else bloğu çalışıyor

          getKdvQuery.ExecSql;

          //getKdvQuery.open; 

          if(getKdvQuery.Found)

          {

            while (not getKdvQuery.Eof)

              {

                kdv_cmb.AddItem( getKdvQuery.FieldByName('KDV_ORANI').AsString,

                                    getKdvQuery.FieldByName('KDV_KODU').AsString);

              }

          }

          else

            ShowMessage('kdv cekilmedi');

        except

          ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message2: ' +LastExceptionMessage);

        }

    }

yukardaki voidi
---getKdvQuery.Sql.Text='exec ZZZProcStokKdvGetir'---- sorgusu ile çağırırsam uygulama donuyor ve hata kodu döndürmüyor.
---getKdvQuery = Clomosy.DBSQLServerQueryWith('exec ZZZProcStokKdvGetir');--- sorgusu ile çağırırsam ise else bloğu çalışıyor yani sorgu bulunamadı hatası alıyorum.aynı sorgu başka unitte çalışıyor.
execin içerisi ise basit select sorgusu.