1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function TForm1.UTC2Local(Zeit: TDateTime): TDateTime;
var
  ti  : Time_Zone_Information;
  i   : cardinal;
begin
  FillChar(ti, sizeof(Time_Zone_Information), 0);
  i := GetTimeZoneInformation( ti );
  case i of
    TIME_ZONE_ID_UNKNOWN:   Result := Zeit;
    TIME_ZONE_ID_STANDARD:  Result := IncMinute(Zeit, ti.Bias * -1);
    TIME_ZONE_ID_DAYLIGHT:  Result := IncMinute(Zeit, (ti.Bias + ti.DaylightBias) * -1);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function TForm1.Local2UTC(Zeit: TDateTime): TDateTime;
var
  ti  : Time_Zone_Information;
  i   : cardinal;
begin
  FillChar(ti, sizeof(Time_Zone_Information), 0);
  i := GetTimeZoneInformation( ti );
  case i of
    TIME_ZONE_ID_UNKNOWN:   Result := Zeit;
    TIME_ZONE_ID_STANDARD:  Result := IncMinute(Zeit, ti.Bias);
    TIME_ZONE_ID_DAYLIGHT:  Result := IncMinute(Zeit, (ti.Bias + ti.DaylightBias) );
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
zeit : tdatetime;
begin
if Combobox1.Text <> '' then begin
try
  IdTime1.Host := combobox1.Text;

  zeit := idtime1.DateTime;

zeit := UTC2Local (zeit);

  if checkbox1.Checked = true then begin
   if CheckBRDSz(now) = true then
      zeit := IncHour(zeit,1);
   end;


  MDateTime1.SetTime (zeit);
  MdateTime1.SetSysTime ;
  application.ProcessMessages;
  showmessage ('Zeit erfolgreich syncronisiert !!');
  except
Showmessage ('Fehler beim verbinden');
end;
end
else
Showmessage ('Sie haben keinen Server gewählt !!');
end;