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)
private
FArreglo : Array[0..n-1] of TFila;
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.