El sigte proc llamado SetDateTime
procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec,
MSec: Word);
var
NewDateTime: TSystemTime;
begin
FillChar(NewDateTime, SizeOf(NewDateTime), #0);
NewDateTime.wYear := Year;
NewDateTime.wMonth := Month;
NewDateTime.wDay := Day;
NewDateTime.wHour := Hour;
NewDateTime.wMinute := Minu;
NewDateTime.wSecond := Sec;
NewDateTime.wMilliseconds := MSec;
SetLocalTime(NewDateTime);
end;
Luego para llamarlo:
var
hh, mm, ss, ms, d, m, a : Word;
begin
DecodeTime(StrToTime(Edit1.Text), hh, mm, ss, ms);
DecodeDate(Date, a, m, d);
SetDateTime(a, m, d, hh, mm, ss, ms);
end;
Suerte.
