Use the WIndows API function GetSystemTime. Example:

procedure TForm .Button Click(Sender: TObject);
var
  lt : TSYSTEMTIME;
  st : TSYSTEMTIME;
begin
  GetLocalTime(lt);
  GetSystemTime(st);
  Memo .Lines.Add('LocalTime = ' +
                  IntToStr(lt.wmonth) + '/' +
                  IntToStr(lt.wDay) +  '/' +
                  IntToStr(lt.wYear) + ' ' +
                  IntToStr(lt.wHour) +  ':' +
                  IntToStr(lt.wMinute) +  ':' +
                  IntToStr(lt.wSecond));
  Memo .Lines.Add('UTCTime = ' +
                  IntToStr(st.wmonth) + '/' +
                  IntToStr(st.wDay) +  '/' +
                  IntToStr(st.wYear) + ' ' +
                  IntToStr(st.wHour) +  ':' +
                  IntToStr(st.wMinute) +  ':' +
                  IntToStr(st.wSecond));
end;