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!