{ %norun } {$mode macpas} unit tintfdef; interface procedure testje; end.