EventMap for FreePascal