Números a letras

[metroyd]

ME MARCA EL SIGUIENTE ERROR:

Project sistema.exe raised exception Class EConverter error with message "" is not a valid floating point value.

Mi codigo es:

Código Delphi [-]
procedure TForm18.BitBtn1Click(Sender: TObject);
   // AQUI METI LA FUNCION QUE ME DIJISTE
   function Deletrear(numero: real) : string; var
     letras: TLetras;
   begin
     letras := TLetras.Create(nil);
     try
       letras.Numero := numero;
       Result := letras.AsString;
     finally
       letras.Free;
   end;
   end;
 // FIN DE LA FUNCION
var
  npages:integer;
  n:string;
begin
IF DE.Date > A.Date THEN BEGIN
         Application.MessageBox('ERROR EN LAS FECHAS','SISTEMA MULTAS',MB_ICONERROR);
     END
     ELSE BEGIN
         Form17:= TForm17.Create(Application);

        datamodule4.buscar.close;
        datamodule4.buscar.SQL.Clear;
        datamodule4.buscar.SQL.Add('SELECT multas.folio,agentes.clave_agente, agentes.nombre, agentes.rfc, multas.importe_agente, sum(multas.importe_agente) AS total_agente,'
        +'sum(multas.importe_agente) * 2 AS total_cien FROM agentes,multas,'
        +'detalle_multa_age WHERE multas.fecha_pago >= "'+QuotedStr(FormatDateTime('yyyy-mm-dd',de.date))+'" AND multas.fecha_pago <= "'+QuotedStr(FormatDateTime('yyyy-mm-dd',a.date))+'"'
        +' AND detalle_multa_age.nombre = agentes.nombre and detalle_multa_age.folio = multas.folio group by clave_agente');
        datamodule4.buscar.Open;

        form17.qrlabel4.Caption:=FormatDateTime('d mmm yyyy',DE.DATE);
        form17.qrlabel5.Caption:=FormatDateTime('d mmm yyyy',A.DATE);


        form17.QuickRep1.DataSet:=datamodule4.buscar;
        form17.QRDBText1.DataSet:=datamodule4.buscar;
        form17.QRDBText2.DataSet:=datamodule4.buscar;
        form17.QRDBText3.DataSet:=datamodule4.buscar;
        form17.QRDBText4.DataSet:=datamodule4.buscar;
        form17.QRDBText5.DataSet:=datamodule4.buscar;

        form17.QRDBText1.DataField:='clave_agente';
        form17.QRDBText2.DataField:='nombre';
        form17.QRDBText3.DataField:='rfc';
        form17.QRDBText4.DataField:='total_agente';
        form17.QRDBText5.DataField:='total_cien';
      
  // AQUI VIENE EL PROCESO QUE QUIERO HACER
        form17.QRExpr2.Expression:='SUM(total_cien)';
        form17.QRExpr3.Expression:='SUM(total_agente)';

    // ACCEDER AL RESULTADO DEL QREXPRE2:
         N:= Deletrear(StrToFloat(form17.QRExpr2.Value.strResult));
        form17.QRLabel22.Caption:=N;

        form17.QuickRep1.Prepare;

        nPages:=form17.QuickRep1.QRPrinter.PageCount;
        form17.QRLabel6.Caption:=FormatDateTime('d mmmm yyyy',DATE);
        form17.QRLabel20.Caption:=inttostr(npages);
        form17.QuickRep1.PreviewModal;
         form17.Close;

     END;

end;