* another tp procvar check

tests/tbs/tb0425.pp

@@ -0,0 +1,8 @@
+{$mode delphi}
+
+var
+  glResizeBuffersMESA: procedure(); cdecl;
+
+begin
+    if not Assigned(glResizeBuffersMESA) then;
+end.