Uso de QRStringsBand

[[Gabo]]

Lo he traducido:

void __fastcall TfrmResumenPago::QuickRep1NeedData(TObject *Sender,
      bool &MoreData)
{
    AnsiString cadena;
    MoreData=IBQdetalle->Eof;
    if (MoreData)
    {
       cadena= IBQdetalle->Fields->Fields[0]->AsString; 
                   //FieldByName("NOMBRE")->AsString; También lo he probado así
       QRLabel8->Caption=cadena;
       IBQdetalle->Next();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmResumenPago::QuickRep1BeforePrint(
      TCustomQuickRep *Sender, bool &PrintReport)
{
    IBQdetalle->First();
}
//---------------------------------------------------------------------------

Ahora si me entrega seis filas, conforme al número de registros que son, pero no cambia el Caption, de hecho he probado con:

QRLabel8->Caption="hola";

y tampoco lo cambia.

Seguiré intentándolo.