[Tirs]

хм... тема для вопросов на разные темы получилась =)

я непойму, что неправильно в коде? (прога для генерации терактов - создана для онлайновой игры =) )

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Button1: TButton;
  procedure Button1Click (Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForml.ButtonlClick(Sender: TObject);
var
dead: integer;
pain: integer;
id: integer;
event: string;
begin
if ComboBox1.Itemindex = 0 then
dead := Random (60);
pain := Random (80);
event := ''
Randomize;
id := Random (2);
case id of
0: event := 'взрыв в метро';
1: event := 'стрельба в супермаркете';
2: event := 'взрыв заминированного автомобиля';
end;
ShowMessage ('В Австралии произошёл теракт - ',event,'. В результате погибло ',dead,'. Ранено ',pain);

end.

Самое интересное, что мне указывают на ошибки в том, что вот здесь => ComboBox1.Itemindex стоит точка