Hello all. I am getting a strange compiler error and I don't know why. Maybe one of you can help.

In one global file I have:

DevMdType = ( DevShared, DevExclusive );

In another file I have this:

PROCEDURE LPOpen ( LPDevMode : DevMdType; VAR LPStatus : SHORTINT );

Still later, I try to call LPOpen:

LPOpen (DevShared, PrnStatus);

And I get "incompatible type for argument 1 of `Lpopen'"

Shouldn't this work?

Thanks

-Jason