Algo falta para activar el timer.

[Antuan]

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