Tengo el reloj funcionando y cualdo alcanza un tiempo presento un mensaje.
Como vuelvo a ponerlo a '0'
Código Delphi
[-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := GetCounter(GetTickCount div 1000 - Contador div 1000);
Tiempo := GetCounter(GetTickCount div 1000 - Contador div 1000);
If Tiempo = '0:0:30' then
ShowMessage( 'Esto es una prueba')
end;
Muchas gracias por vuestras respuestas