function TfrmAT_Info.getIMEI: string;
var
  str: string;
begin
  result:= '';
  if not Form1.IsATConnected then exit;
  str:= SendATCommand('AT+CGSN');
  if (str<>'') and xComPort.ATResult
    then begin
         ExtractStr(str, 'IMEI');
         str:= ExtractStr(str, #13);
         RzRichEdit1.SelAttributes.Color:= clBlue;
         RzRichEdit1.SelAttributes.Style:= [fsBold];
         RzRichEdit1.Lines.Add(#9 + 'IMEI: ');
         RzRichEdit1.SelAttributes.Color:= clBlack;
         RzRichEdit1.SelAttributes.Style:= [];
         RzRichEdit1.Lines.Add(#9 + str+#13#10);
       end;
end;