[Delphi]Me pide un Begin al final del codigo y no me encuentra End[solucionado]

[79137913]

HOLA!!!

Seguramente es de distraido, pero no me permite compilar por que... bueno lo que dice el titulo... debe ser por despistado, pero lei 4 veces el codigo y no encuentro el problema... les dejo el codigo a ver si saben por que .


Mod: Solucionado

GRACIAS POR LEER!!!

[Khronos14]

Es porque estás definiendo una función dentro de otra función... Aunque utilices la llamada overload necesitas declarar el código de cada función.

PD: WideString y Pos en Delphi 7 no se llevan bien. Para usar Unicode en Delphi´s viejos hay unos componentes llamandos Tnt que traen funciones para trabajar con WideString: WidePos, WideTrim y cosas así...

Saludos.