procedure TForm1.levelladenmenueClick(Sender: TObject);
begin
  case levelladenmenue.itemindex of
    0: begin
          level:=1;
          spieltimer.enabled:=true;
          levelladenmenue.Visible:=false;
          hauptlabel1.caption:='';
          status:='ladelevel';
        end;

    1: begin
          if levelladenmenue.Items[1]<>'<Level noch nicht verfügbar>' then
          begin
            level:=2;
            spieltimer.enabled:=true;
            levelladenmenue.Visible:=false;
            hauptlabel1.caption:='';
            status:='ladelevel';
          end;
        end;

    2: begin
          if levelladenmenue.Items[2]<>'<Level noch nicht verfügbar>' then
          begin
            level:=3;
            spieltimer.enabled:=true;
            levelladenmenue.Visible:=false;
            hauptlabel1.caption:='';
            status:='ladelevel';
          end;
        end;

    3: begin
          if levelladenmenue.Items[3]<>'<Level noch nicht verfügbar>' then
          begin
            level:=4;
            spieltimer.enabled:=true;
            levelladenmenue.Visible:=false;
            hauptlabel1.caption:='';
            status:='ladelevel';
          end;
        end;

    4: begin
          if levelladenmenue.Items[4]<>'<Level noch nicht verfügbar>' then
          begin
            level:=5;
            spieltimer.enabled:=true;
            levelladenmenue.Visible:=false;
            hauptlabel1.caption:='';
            status:='ladelevel';
          end;
        end;
  end;
end;