Recorrer componentes y Destruirlos

[nickolas]

Hola a todos, tengo una duda y seria genial que alguien me de una respuesta ya que es buscado pero sin suerte.

Estoy haciendo un sistema para una boleteria de colectivos y dependiendo de la cantidad de asiento que tenga el colectivo creo una cantidad determinada de botones que simulan los asientos. mi incoveniente se encuentra cuando tengo que cambiarles el TAG a los botones ya estos guardan los ID de los asientos que pertenecen al viajes seleccionado. El error que me ocurre es que siempre cambia el tag del ultimo Boton y no de todos uno por uno como deberia.

Este es mi codigo:

Código Delphi [-]
var
  TEMP_Asientos:Tzquery;
  I, N:Integer;
  CantidadAsientos:Integer;


begin
  I := 0;
  N := 0;

  {Creo el query Temporal para reservar el asiento}
  TEMP_Asientos := TZQuery.Create(DM_Conecciones);
  TEMP_Asientos.Connection := DM_Conecciones.Conexion;


  TEMP_Asientos.Close;
  TEMP_Asientos.SQL.Clear;
  {Cambio la consulta}
  TEMP_Asientos.SQL.Add('SELECT * '+
                        'FROM asientos '+
                        'WHERE id_viaje = :pIdViaje');
  {paso los parametros}
  TEMP_Asientos.ParamByName('pIdViaje').AsInteger := DM_Conecciones.ZQ_Boleteria.FieldByName('id_viaje').AsInteger;
  {ejecuto la consulta}
  TEMP_Asientos.Open;

  {Paso la cantidad de asiento}
  CantidadAsientos := TEMP_Asientos.RecordCount + 1;
  {Coloco el puntero en la primera posicion}
  TEMP_Asientos.First;


for N := 1 to PNL_colectivo.ComponentCount - 1 do
  begin
  if PNL_colectivo.Components[N] is TButton then
    Begin
      For I := 1 to CantidadAsientos -1 do
     begin
      Boton.Tag := TEMP_Asientos.FieldByName('id_asiento').AsInteger;


      TEMP_Asientos.Next;
      end;

    end;

Espero sus respuestass Gracias.