Convertir Numeros en Letras

[[Chris]]

Puedes colocar un botón en cualquier formulario o en un formulario en blanco. En el evento OnClick del botón agrega el siguiente código:

Código Delphi [-]
procedure TForm1.Button1OnClick(Sender: TObject);
begin
    ShowMessage(CantidadALetra(8.50, True);
    ShowMessage(CantidadALetra(15.50, True);
    ShowMessage(CantidadALetra(36.50, True);
end;

Ése sería la forma más rápida de probar el resultado de una función. Un método más preciso es ir haciendo una prueba cada intervalo de números e ir agregando el resultado a un memo. Así puedes ver visualmente si en algunos escenarios la función no devuelva el resultado esperado. Por ejemplo:

Código Delphi [-]
procedure ProbarFuncion();
var
    I: Integer;
    test_value: Currency
begin
    for I := 0 to 1000 do
    begin
        if (I mod 4)  0 then
        begin
            test_value := I + .25;
            Memo1.Lines.add(Format('%f.2 => %s', 
                            [test_value, CantidadALetra(test_value, True)]));
        end;
    end;
end;

El último código lo he escrito sin verificarlo. Puede que tenga algunos errores. Pero a como dice el Chapulín: La idea es ésa

Saludos!