Impedir borrado de campo secundario!!

[magnu9]

Con este codigo pude lograrlo, espero no encontrar mas problemita en esto..

Código Delphi [-]
procedure TmtZona.btBorrarClick(Sender: TObject);
   begin
        sqlcliente.SQL.Text:='select codcli, codzon from cliente  where codzon='+ dbeCodigo.Text +' group by codcli,codzon';
            sqlcliente.Open;
        if  sqlcliente.Fields[0].AsInteger <=0 then
            tZona.Delete;

De verdad que estoy leyendo de delphi desde marzo pasado, y no sabia que existian ustedes y este foro.. desde el marte hasta hoy he aprendido mucho mas, con su ayuda. Me gustaria hacerte mi historia con delphi, pero Creo q Dios es el que sabe cuando a uno le vienen bien obtener los conocimientos. Creo que un poco tarde pero pa' lante es que vamos, como dicen en mi pais. Gracias un millon de Gracias!!!!