Procedure vereinfachen.

[Gruber_Hans_12345]

Delphi-Quellcode:

procedure TForm1.levelladenmenueClick(Sender: TObject);
var levelOK : Boolean;
begin
  levelOK := levelladenmenue.itemindex = 0;
  if levelladenmenue.itemindex > 0 then
    levelOK := levelladenmenue.Items[levelladenmenue.itemindex]<>'<Level noch nicht verfügbar>' ;
  if levelOK then begin
          level:=levelladenmenue.itemindex+1;
          spieltimer.enabled:=true;
          levelladenmenue.Visible:=false;
          hauptlabel1.caption:='';
          status:='ladelevel';
        end;  
end;

sollte eigentlich funktionieren