procedure TimerWork;
begin
 CurUpTimeSec := CurUpTimeSec + 1;

 if CurUpTimeSec = 60 then
 begin
   CurUpTimeSec  := 0;
   CurUpTimeMin  := CurUpTimeMin + 1;
 end;

 if CurUpTimeMin = 60 then
 begin
   CurUpTimeMin  := 0;
   CurUpTimeHr   := CurUpTimeHr + 1;
 end;
 SetDlgItemText(hWnd, 7, PChar(IntToStr(CurUpTimeHr) + ':' + IntToStr(CurUpTimeMin) + ':' + IntToStr(CurUpTimeSec)));
end;