[KUSTS]

В общем проблема в том что при запуске программы F9 программа вроде запускается на долю секунды и сразу же закрывается и переходит в редактор кода, ошибок в коде не находит

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     chk16: TCheckBox;     edt1: TEdit;     chk1: TCheckBox;     chk2: TCheckBox;     chk3: TCheckBox;     chk4: TCheckBox;     chk5: TCheckBox;     chk6: TCheckBox;     chk7: TCheckBox;     chk8: TCheckBox;     chk9: TCheckBox;     chk10: TCheckBox;     chk11: TCheckBox;     chk12: TCheckBox;     chk13: TCheckBox;     chk14: TCheckBox;     chk15: TCheckBox;     rg1: TRadioGroup;     rg2: TRadioGroup;     rg3: TRadioGroup;     rg4: TRadioGroup;     rg5: TRadioGroup;     rg6: TRadioGroup;     rg7: TRadioGroup;     rg8: TRadioGroup;     rg9: TRadioGroup;     rg10: TRadioGroup;     rg11: TRadioGroup;     rg12: TRadioGroup;     rg13: TRadioGroup;     rg14: TRadioGroup;     rg15: TRadioGroup;     rg16: TRadioGroup;     btn1: TButton;     procedure btn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   g:integer;   implementation   {$R *.dfm}   procedure TForm1.btn1Click(Sender: TObject); begin g:=0; if Rg1.ItemIndex=2 then Inc(g);//подсчет баллов if Rg2.ItemIndex=3 then Inc(g); if Rg3.ItemIndex=1 then Inc(g); if Rg4.ItemIndex=2 then Inc(g); if Rg5.ItemIndex=0 then Inc(g); if Rg6.ItemIndex=2 then Inc(g); if Rg7.ItemIndex=1 then Inc(g); if Rg8.ItemIndex=1 then Inc(g); if Rg9.ItemIndex=2 then Inc(g); if Rg10.ItemIndex=2 then Inc(g); if rg11.ItemIndex=0 then Inc(g); if Rg12.ItemIndex=1 then Inc(g); if Rg13.ItemIndex=2 then Inc(g); if Rg14.ItemIndex=3 then Inc(g); if Rg15.ItemIndex=2 then Inc(g); if Rg16.ItemIndex=1 then Inc(g);   if g=0 then edt1.text:='Ваша оценка 2!'; //вывод текста в результат if g=1 then edt1.text:='Ваша оценка 2!'; if g=2 then edt1.text:='Ваша оценка 2!'; if g=3 then edt1.text:='Ваша оценка 2!'; if g=4 then edt1.text:='Ваша оценка 2!'; if g=5 then edt1.text:='Ваша оценка 2!'; if g=6 then edt1.text:='Ваша оценка 2!'; if g=7 then edt1.text:='Ваша оценка 2!'; if g=8 then edt1.text:='Ваша оценка 2!'; if g=9 then edt1.text:='Ваша оценка 3!'; if g=10 then edt1.text:='Ваша оценка 3!'; if g=11 then edt1.text:='Ваша оценка 3!'; if g=12 then edt1.text:='Ваша оценка 4!'; if g=13 then edt1.text:='Ваша оценка 4!'; if g=14 then edt1.text:='Ваша оценка 4!'; if g=15 then edt1.text:='Ваша оценка 5!'; if g=16 then edt1.text:='Ваша оценка 5!'; end;     end.

Может я что то в объект инспекторе что то не так поставил?(вроде ничего особого кроме цвета не менял)

ps: Пишу программу - тест.
pss: Один из программистов мне выдал что то типа "у тебя в потоке написано, а нужно написать по другому" но я так и не догнал что он имел в виду.