Creando componentes en ejecucion

[jachguate]

Hola.

Si no nos decis cómo estas estructurando internamente tus componentes, no hay forma de ayudarte!

Supondré que creaste un registro, un vector de registros y que en la propiedad TAG de cada componente has almacenado su propio índice en el vector, así, quedaría algo como:

Código Delphi [-]
Type
  TFila = record
    Boton: TButton;
    Etiqueta: TLabel;
    Editor: TEdit;
  end;

TForm1 = class(TForm)
  //codigo aqui
  private
    FArreglo : Array[0..n-1] of TFila;
//mas codigo aqui

procedure TForm1BotonCualquieraClick(Sender: TObject);
var
  UnaFila: TFila;
begin
  UnaFila := FArreglo[(Sender as TObject).Tag];
  ShowMessage(Format('El editor contiene: %s'#13'Y la etiqueta dice: %s', 
    [Fila.Editor.Text, Fila.Etiqueta.Caption]);
end;

Hasta luego.