Otra cosa con esto:
Código Delphi
[-]
if sqlcliente.Fields[0].AsInteger <=0 then
Estas diciendo que es el primer campo (Fields[0].), creo que segun la sentencia deves indicar el segundo campo (Fields[1].)., que es el 1. asi:
Código Delphi
[-]
if sqlcliente.Fields[1].AsInteger <=0 then
No se pruebalo.
saludos