It seems that Lazarus's Windows unit does not containt a definition for "PWGLSwap" which should look something like this..
[pascal]
type
PWGLSwap = ^TWGLSwap;
_WGLSWAP = packed record
hdc: HDC;
uiFlags: UINT;
end;
TWGLSwap = _WGLSWAP;
WGLSWAP = _WGLSWAP;[/pascal]