Observa esto Caral un momentito, dime si esta bien...
Código Delphi
[-]sqlcliente.SQL.Text:=('select count(c.codcli),c.codzon from cliente c where c.codzon='+ dbeCodigo.Text + ' group by c.codzon');
sqlcliente.Open;
if sqlcliente.Fields[0].AsInteger <=0 then
sqlZon.Delete;
Y por que el Error... gracias de antemano