[[Caral]]

Hola
Pues la verdad no lo se, me imagino algo asi:

Código Delphi [-]
procedure label41OnGetText (var Text : String);
Var suma: Real;
begin
   suma:= 0;
   if dbp_bien['campo11'] = 'Primera' then
   begin
    Text := (dbp_bien['VALOR']*60)
   end
   else if dbp_bien['campo11'] = 'Segunda' Then
   begin
    Text := (dbp_bien['VALOR']*12)
   end
   else if dbp_bien['campo11'] = 'Tercera' Then
   begin
    Text := (dbp_bien['VALOR']*4)
   end
   else if dbp_bien['campo11'] = 'P1' Then
   begin
    Text := (dbp_bien['VALOR']*1000)
   end
   else if dbp_bien['campo11'] = 'P2' Then
   begin
    Text := (dbp_bien['VALOR']*100)
   end
   else if dbp_bien['campo11'] = 'TRIPLETA' Then
   begin
    Text := (dbp_bien['VALOR']*10000)
   end;
  suma:= suma + StrToFloat(Text);
end;

No se, probar no cuesta nada.
Saludos