Послушайте, Вам POINTER TO Status, в принципе, не нужен.

Вы должны объявить на КП в сигнатуре процедуры (...., VAR pSt: Status) - это как раз эквивалентно передаче указателя.

При условии, что библиотека не запоминает нигде этот адрес и не обращается по нему после вызова.
Хотя даже в таком случае можно её будет натравить на глобальный в модуле VAR stat: Status,