title: SYSTEMTIME in FireMonkey
body: <p>Can you help me.
  I have a code, but it don't work on Android (who would doubt that).</p>
  
  <pre><code>procedure SetTime(sTime: string);
  
  var
     vsys: _SYSTEMTIME;
  
  begin
    GetLocalTime(vsys);
    vsys.wYear := StrToInt(Copy(sTime,7,4));
    vsys.wMonth := StrToInt(Copy(sTime,4,2));
    vsys.wDay := StrToInt(Copy(sTime,1,2));
    vsys.wHour := StrToInt(Copy(sTime,12,2));
    vsys.wMinute := StrToInt(Copy(sTime,15,2));
    vsys.wSecond := StrToInt(Copy(sTime,18,2));
    SetLocalTime(vsys);
  end;
  </code></pre>
  
  <p>I need a similar code, but to make it work on Android or analogy. Thanks in advance</p>