¡Ya lo tengo!
"Mea culpa" te puse en la primera respuesta:
A esta funcion la llamas desde el evento onKeyPress del Edit de esta forma:
Key := ComprobarNumerico(MiEdit.Text
; Key:Char);
Y ese ";"... debería ser una coma ","...
Así que intenta simplemente
Key := ComprobarNumerico(EdPagat.Text, Key:Char);
Y me cuentas... yo me marcho hasta mañana 
... que ya es hora