fehlermeldung bei combobox! bitte um hilfe

[Klaus01]

Hallo,

es trägt nicht unbedingt zu Deiner Problemlösung bei,
aber vielleicht hilft es, wenn Du den Code ein wenig
anders strukturierst?


Grüße
Klaus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  heer:=1000;
  // randomize;   bitte nur einmal beim Programmstart aufrufen
  zahl:= random(6)+1;
 
  label7.caption := intToStr(zahl);


  case zahl of
    1: begin
         label1.visible := true;
         label2.Visible:=false; 
         label3.Visible:=false;
         label4.Visible:=false;
         label5.Visible:=false;
         label6.Visible:=false;
         label1.Caption:='SCHLACHT DEUTLICH VERLOREN !!! Du hast viele Kämpfer verloren, da du viel zu unüberlegt agiert hast!!';
       end;
    2: begin 
        ..
       end; 
    3: begin
        ..
       end;
  end;

end;