function TP2KAPI.GetFlex: 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('017f'), AnsiLowerCase('1'), '0', 0, SeemData, SeemLen)
        then begin
               i:=0; s:= '';
               while i< SeemLen do
                 begin
                   s:= s + chr(SeemData[i]);
                   inc(i);
                 end;
               s:= Trim(s);
               s:= ExtractStr(s, #0);
               sleep(1);
             end;
    finally
      FreeMem(SeemData, 1024);
      result:= s;
    end;
end;