Aunque casi pensamos en euros adjunto conversor, me falta una cosa al pulsar Esc se borran los dos campos pero se queda el cero sin seleccionar.
Se admiten sugerencias

Corregido, al pulsar Esc se borran los campos y el 0 queda seleccionado de forma que al escribir se borra.
El conversor se queda por encima de cualquier ventana de windows

La linea:
SetKey(27 , {||::edit1:caption := 0,::edit2:caption := 0, ::edit1:SelLength := -1, ::edit2:SelLength := -1})

Cambiarla por esta SetKey(27 , {||::edit1:caption := 0,::edit2:caption := 0.00, ::edit1:SelLength := -1, ::edit2:SelLength := -1})

Es decir el campo de los euros (::edit2:caption := 0.00) sino despues de pulsar Esc no deja escribir decimales.

Con esto creo acabar
Un saludo