problemas de eliminacion

[alfil123]

hola amigos, ayer me sujirieron insertar esta linea en el codigo


procedure TForm1.Button1Click(Sender: TObject); begin If Adoquery1.Fields[0].AsInteger > 0 then ShowMessage('Hay registros en el detalle') else ShowMessage('NO Hay registros en el detalle'); end;

pero me bota un error en tiempo de ejecucion en la linea

"If Adoquery1.Fields[0].AsInteger > 0 then"

se suponia que la esta linea contaba los registro que devuelve una consutabueno amigos les pido que me den una mano

[alfil123]

amigos este es el procedimiento donde estoy teniendo problemas

procedure TMantenimiento_Control.ToolButton3Click(Sender: TObject);
begin

inherited;

ToolButton2.Enabled:=true;

le_id01.text:='';

dateTimePicker1.Format:='';

end;

procedure TMantenimiento_Control.SpeedButton8Click(Sender: TObject);

var n,m,a:integer;
begin
inherited;

ADOQuery1.Close;

ADOQuery1.sql.Clear;



ADOQuery1.SQL.Add('select count(id_control) as n');

ADOQuery1.SQL.Add('from d_c_clase ');

ADOQuery1.SQL.Add('where id_control='+ le_id01.text);//06');//'+ le_id01.text );

if ADOQuery1.Fields[0].asinteger >0

then

showmessage('si')

else

showmessage('no');



ADOQuery1.open;

ADOQuery1.Close;

if m=0

then

begin

ADOQuery1.Close;

ADOQuery1.sql.Clear;

ADOQuery1.SQL.Add('delete');

ADOQuery1.SQL.Add('from control ');

ADOQuery1.SQL.Add('where id_control='+ le_id01.text);//06');//'+ le_id01.text );

ADOQuery1.ExecSQL;

ADOQuery1.Close;



end

else

begin

showmessage('no se puede jajjaj');

end;

//ADOQuey1.0Destroy;

end;


la linea que me vota erro es+
" if ADOQuery1.Fields[0].asinteger >0"

y me bota este erroor


Project colegio_ollanta.exe raised exception clase ElistError with message ‘List index out of bounds(0)’ process stopped. Use or Run to continue


porfavor ayudenme estoy desesperado