Tan sólo puntualizar que según la base de datos que estés usando puede que sobre el "Facturas.Next" porque al borrar un registro, el puntero se coloca en la siguiente, así que estarías borrando una sí y una no...
Por lo que el código del compañero
marcoszorrilla quedaría más o menos así:
Código:
Application.ProcessMessages;
While Not Facturas.Eof do
Begin
label1.Caption:=FacturasNumero.Value;
Facturas.Delete;
end;