Wop!
En primer lugar, pedirte que encierres tu código entre tags [delphi], ya que se sigue mucho mejor. Esta vez lo he hecho yo, pero espero que a partir de ahora lo hagas tu
Sobre tu problema, fijate que la implementación de la función está después del "end.". Para delphi, despues del end "con punto" no existe nada, así que es como si no pusieses la implementación. Si te fijas, el compilador te tienes que estar dando un warning al respecto