Hola, Gracias por las respuestas, he resuelto el problema y no tenia nada que ver con la función, era el valor de la constante a devolver y que en el codigo que les he colocado retornaba 1 o 0. Entonces por error y por velocidad de avanzar he cometido el fallo de asignar el mismo valor a las dos constantes.
Gracias de todas formas.
Por cierto, si es correcto hacer esto de VB a D6
Código:
VB If OperacionEstacion(Estacion).Count = 0 Then
y lo he pasado a D6 asi:
D6 if Length(OperacionEstacion[Estacion].Operacion) = 0 then
Gracias nuevamente