[PhoeniX]

Первое: не вижу закрывающего end для процедуры.
Второе: после

Код:

event := ''

нету точки с запятой.
Третье: в строке

Код:

ShowMessage ('В Австралии произошёл теракт - ',event,'. В результате погибло ',dead,'. Ранено ',pain);

строки складываются с помощью +, и забыли про приведение типов (IntToStr).
Строка должна быть

Код:

  ShowMessage ('В Австралии произошёл теракт - '+event+'. В результате погибло '+IntToStr(dead)+'. Ранено  '+IntToStr(pain));

И ещё: Randomize надо вызывать ПЕРЕД первым Random
После исправления всё скомпилилось и запустилось. ComboBox на форме существует? может изза него ругаться на точку.