[PaHaNjkee]

Создаю лотерею, и вот создал онклик на картинке вот код

Код:

var
  Form1: TForm1;
  i: integer=0;



procedure TForm1.Image2Click(Sender: TObject);
begin
i:=i+1;

if strtoint(edit1.text)=i then
ShowMessage('Вы ошиблись! Попробуйте еще!') else
ShowMessage('Вы выиграли!!!!! ПОЗДРАВЛЯЕМ! Возьмите свой приз!');

if i=20 then
ShowMessage('Лотерея окончена!');
Application.Terminate;
end;

Вопрос: Почему когда я компилирую ввожу число в эдит нажимаю на имэйдж1(картинку) и пишет Вы выиграли, даже если 15 ввожу, а если ввожу вместо этого

Код:

if i=20 then

Вот это:

Код:

if i<>20 then

То если я пишу 15 пишет Вы ошиблись! Попробуйте еще!
Вроде все правильно но нажимаю на ОК и пишет Лотерея закончилась

Помогите исправить думаю может через for to do?