Impedir borrado de campo secundario!!

[magnu9]

Pero me da un pequñito error...

He cambiado el sql un poquito, pero estoy utilizando un AdoSql llamado sqlCliente
con el cual llamo la tabla cliente. sqlzon me maneja la tabla de Zona.
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;

Pero me da un error de No found Codcli