Pascal/Turbo Pascal - ¿Cómo hago para que muestre un mensaje si no se ha producido ninguna llamada?

Filtrado por el usuario: Oliver

Filtrado por el usuario 'Oliver' (Eliminar fitro)

Me manda 100 mensajes de error de lo mismo "class, interface, or enum expected"