Ok I found one script: 
 HotKeySet("{pause}","TogglePause")
HotKeySet("{home}","Start")
HotKeySet("{end}","Stop")
Global $Paused
While 1
    Sleep(25)
WEnd
Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
    WEnd
EndFunc
Func Start()
    While NOT $Paused
        ToolTip(@HOUR&":"&@MIN&":"&@SEC,0,0,"Current time")
        Sleep(1000)
    WEnd    
EndFunc
Func Stop()
    ToolTip("bye bye!",0,0,"Current time")
    Sleep(1000)
    Exit
EndFunc
I