[lmikle]

Не понятно, что тебе надо. Написать эту функцию или вызвать ее.
Если вызывать, то, видимо, что-то типа такого:

Код:

var
  PI : TPosInfo;
begin
  PI.Open := 0;
  GetMem(PI.SerNo,12+1);

  // Получаем адрес функции и т.п.
  If GetCfgData(PI) = 0 // 0 = success
    Then Result := StrPas(PI.SerNo) // Типа вернули результат
    Else Raise Exception.Create('Error');

  FreeMem(PI.SerNo,12+1);