Error Qrdesign ayuda..

[Rofocale]

Hola disculpa el programa compila todo bien pero no muestra el resultado dentro del label osea no aparece nada solo dice reportlabel

Código Delphi [-]
procedure TfInformee.facturaDesignBandBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);

var
  vComponente : TComponent;
  totalx : Double;

begin
  if UpperCase(sender.Name) = 'PIE' then
  begin

     vComponente := fInformee.facturadesign.ReportForm.FindComponent('muestracon');
     if (vComponente as TQRLabel) <> Nil then
     begin
       totalx := md.tfacturas.FieldByName('Total').AsFloat;

       (vComponente as TQRLabel).Caption := FloatToStr(totalx);
       (vComponente as TQRLabel).Enabled := True;
     end;

  end;
end;

[marcoszorrilla]

Me da la impresión de que el evento no se ejecuta, por qué no metes dentro un ShowMessage('xxxx'); para ver si entra hasta esa zona o no?.

Un Saludo.

[Rofocale]

algo anda mal.. segun el showmessage el primer if se ejecuta

[Rofocale]

necesito una ayuda si le quito la condicion para forzar a que se ejecute todas las sentencias el programa da error de access violation con mi primer codigo como lo estaba usando tmb da error de access violation porque ?

soy novato

[Rofocale]

Bueno ya me salio a ver si les sirve a ustedes esto es para convertir el total de una factura a letras con el componente atexto que descargue de esta web

Código Delphi [-]
procedure TfInformee.facturaDesignBandBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);

var
  vComponente : TComponent;
  totalx : Double;

begin
  if UpperCase(sender.Name) = 'PIE' then
  begin

     vComponente := fInformee.facturadesign.ReportForm.FindComponent('muestracon');
     if vComponente is TQRLabel then
   begin
       totalx := md.tfacturas.FieldByName('Total').AsFloat;
       Letras1.Numero := totalx;
       (vComponente as TQRLabel).Caption := Letras1.AsString;
       (vComponente as TQRLabel).Enabled := True;

   end;

  end;
end;