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.

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

icerisinde baglanti kontrolu yapabilir misin:

Bir de 

Sql server baglantisi true donuyor. Ama veriler gelmiyor diyorsun.