menambahkan waktu jam

menambahkan waktu jam 

Kami berhasil membuat sebuah aplikasi yang bisa menjumlah waktu, hanya saja harus disertai jam, menit, dan detik jika hanya memerlukan jam dan menitnya saja silakan anda setting sendiri. Ini juga harus disertai tiga TEdit. begini caranya...

var
Jam, Jam2, Jam3, Menit, Menit2, Menit3, Detik, Detik2, Detik3: Integer;
begin
Edit1.Text := TimeToStr(Time); //membaca waktu sekarang
Edit2.Text := '01:00:30' //Misal
if Length(Edit1.Text) = 7 then Edit1.Text := '0'+Edit1.Text;
Jam := StrToInt(Copy(Edit1.Text, 1, 2));

Menit := StrToInt(Copy(Edit1.Text, 4, 2));
Detik := StrToInt(Copy(Edit1.Text, 7, 2));
Jam2 := StrToInt(Copy(Edit2.Text, 1, 2));
Menit2 := StrToInt(Copy(Edit2.Text, 4, 2));
Detik2 := StrToInt(Copy(Edit2.Text, 7, 2));
Jam3 := Jam + Jam2;
Menit3 := Menit + Menit2;
Detik3 := Detik + Detik2;
while Detik3 > 60 do
begin
Detik3 := Detik3 - 60;
Menit3 := Menit3 + 1;
end;
while Menit3 > 60 do
begin
Menit3 := Menit3 - 60;
Jam3 := Jam3 + 1;
end;
while Jam3 > 24 do Jam3 := Jam3 - 24;
Edit3.Text := IntToStr(Jam3)+':'+IntToStr(Menit3)+':'+IntToStr(Detik3);

dan untuk mereplacenya ke system waktu perlu ditambah variable ini...
DT: TDateTime;
SysTime: TSystemTime;

dan langkahnya seperti ini
ReplaceDate(DT, Date);
ReplaceTime(DT, StrToTime(Edit3.Text));
DateTimeToSystemTime(DT, SysTime);
SetLocalTime(SysTime);
tambahkan di dalam procedure yg sama

//Selamat mencoba\\