unit SYSV; {$MODE OBJFPC} {$M+} interface uses type_fixes, BaseUNIX{TSize}; type ISharedMemory = interface ['{ddf1ce5a-caee-11dd-9843-cf92c47c5695}'] function GetID : TInteger; function Address : Pointer; //property Address : Pointer read GetAddress; property ID : TInteger read GetID; end; implementation end.