1:
2:
3:
4:
5:
6:

var
  Time1:TTime
begin
  Time1:=10:10:10
  SetTime(Time1)
end                    

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

function SetzeSystemZeit(Stunde,Minute,Sekunde,Milisekunde: Byte): Boolean;
var TimeStruct : TSystemTime; y,m,d: Word;
begin
 DecodeDate(Date,y,m,d);
 TimeStruct.wYear:=y;
 TimeStruct.wMonth:=m;
 TimeStruct.wDay:=d;
 TimeStruct.wHour:=Stunde;
 TimeStruct.wMinute:=Minute;
 TimeStruct.wSecond:=Sekunde;
 TimeStruct.wMilliSeconds:=Milisekunde;
 Result:=SetSystemTime(TimeStruct);
end;                    

1:

function SetzeSystemZeit(12,59,59,0);