function TfrmAT_Info.getTimePhone: string;
var
  str, sec, min, hour, day, month, year: string;
begin
  result:= '';
  if not Form1.IsATConnected then exit;
  str:= SendATCommand('AT+CCLK?');
  if (str<>'') and xComPort.ATResult
    then begin
           ExtractStr(str, '"');
           str:= ExtractStr(str, '+');
           year:= ExtractStr(str, '/');
           month:= ExtractStr(str, '/');
           day:= ExtractStr(str, ',');
           hour:= ExtractStr(str, ':');
           min:= ExtractStr(str, ':');
           sec:= str;
           if length(hour) = 1 then hour:= '0' + hour;
           if length(min) = 1 then min:= '0' + min;
           if length(sec) = 1 then sec:= '0' + sec;
           if length(day) = 1 then day:= '0' + day;
           if length(month) = 1 then month:= '0' + month;
           if length(year) = 1 then year:= '0' + year;
           if year[1]= '0' then year:= '20' + year else year:= '19' + year; 
           result:= day+'.'+month+'.'+year+' '+hour+':'+min+':'+sec;
       end;
end;