procedure TVertel.BotonCualquieraClick(Sender: TObject);
var
UnaFila: TFila;
boton:tbutton;
begin
boton:=tbutton(sender);
UnaFila := Filas[boton.tag];
ShowMessage(Format('El editor contiene: %s'#13'Y la etiqueta dice: %s',
[UNAFila.A.Text, UNAFila.B.Caption]));
end;