Source position: xcms.pp line 192
type TXcmsScreenInitProc = function(
para1: PDisplay;
para2: LongInt;
para3: PXcmsPerScrnInfo
):TStatus;