Hola
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
Cuando usas Add se san los parentesis.
Código Delphi
[-]
sqlcliente.SQL.ADD:=('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
Revisa que cuando usas text no se usan ( ), revisalo., no se que error te da.
Saludos