function TP2KAPI.GetModel: string;
var
  SeemData: pbyteArray;
  SeemLen: word;
  i: integer;
  s: string;

begin
  //0117
  if not TelStatus then exit;
    result:= '';
    SeemData:= AllocMem(1024);
    try
      if ReadSeem(AnsiLowerCase('0117'), AnsiLowerCase('1'), '0', 0, SeemData, SeemLen)
        then begin
               i:=0; s:= '';
               while i<= SeemLen do
                 begin
                   s:= s + inttohex(SeemData[i], 2);
                   inc(i);
                 end;
               s:= UCS2ACSI(s, true);
               s:= PChar(s);
               sleep(1);
             end;
    finally
      FreeMem(SeemData, 1024);
      result:= s;
    end;
end;