Algo falta para activar el timer.

[jmariano]

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!