function TP2KAPI.GetIMEI: string;
var
  SeemData: pbytearray;
  SeemLen, i: word;
  s: string;

begin
  result:= ''; s:= '';
  SeemData:= AllocMem($fa4); SeemLen:= 0;
  FillMemory(SeemData, $fa4, 0);
  if P2K.ReadSeem('0004', '0001', '0', 1, SeemData, SeemLen)
    then begin
           for i:= 0 to 7 do s:= s + inttohex(SeemData[i+1], 2);
           result:= s[1] + s[4] + s[3] + s[6] + s[5] + s[8]  + s[7] + s[10] + s[9] + s[12] + s[11] + s[14] + s[13] + s[16] + s[15];
           // вычислить последнюю цифру
         end;
end;