Saludos!
Podrías volver a igualar la variable "Contador" al valor de la función "GetTickCount" (como haces en el evento "OnCreate" del formulario) en la misma sentencia "If" (donde muestras el mensaje) para así volver a contar la diferencia de tiempo transcurrido.
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
begin
ShowMessage( 'Esto es una prueba');
Contador := GetTickCount;
end;
end;
Chao!