RadioGroup w grze jackpot

var
  zycia : integer;
procedure TForm1.Button1Click(Sender: TObject);
var
  los, liczba, maxLos : integer;
begin
  case Poziomy.ItemIndex of
    0 : maxLos := 15;   //maksymalnie wylosowana liczba z poziomu
    1 : maxLos := 30;
    2 : maxLos := 50;
    3 : maxLos := 100;
  end;
  begin
    if zycia <= 0 then
    begin
      showMessage('Przegrales, masz 0 zyc');
      Application.Terminate;
    end;
    begin
      liczba := StrToInt(Edit1.Text);
      zycia := zycia - 1;         //zycia gracza
      los := Poziomy.ItemIndex;   //wylosowana liczba
      if ((liczba < 0) and (liczba > maxLos)) then
        showmessage('wybierz liczbe z przedzialu');
      if (liczba = los) then
        showMessage('wygrales')
      else if (liczba<los) then
        showmessage('wpisz wieksza liczbe')
      else if (liczba>los) then
        showmessage('wpisz mniejsza liczbe');
end;
  Label1.Caption := ('Pozostalo zyc ' + IntToStr(zycia));
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  zycia := 10;
end;