Problem mit schleife bei ner ComboBox1

[Klaus01]

Habe folgendes in Deiner Unit1 geändert:

Delphi-Quellcode:

case ComboBox1.ItemIndex of
  0: begin
       grundkuse;  leistungskuse; preufungen; abinote;
     end;
  1: begin
       grundkuse;  leistungskuse; preufungen; abinote;
     end;
  else
    begin
      Form1.hide;                 // zuerst Form1. verstecken
      Form2.showModal;            // Form2 modal darstellen
      Form1.show;
    end;
end;

In der Unit2:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Close;
end;

Grüße
Klaus