[Casimiro Noteví]

Con la hora UTC creo que solventas el problema:

Código Delphi [-]
procedure TMainForm.TimeZoneClick(Sender: TObject);
var
  MyTime : TDateTime;
  UTC: TSystemTime;
begin
  MyTime := Time;
  GetSystemTime(UTC);
  with Memo1.Lines do
  begin
    Add('PC time: '+TimeToStr(MyTime));
    Add('UTC: '+IntToStr(UTC.wHour)+':'+IntToStr(UTC.wMinute)+':'+IntToStr(UTC.wSecond));
    Add('Date: '+IntToStr(UTC.wYear)+':'+IntToStr(UTC.wMonth)+':'+IntToStr(UTC.wDay));
  end;
end;

Mira aquí.