Pascal/Turbo Pascal - Como podría resolver esto?

Filtrado por el usuario: Peter
<<>>
Filtrado por el usuario 'Peter' (Eliminar fitro)
 
Vista: