Problem mit case of

[rockycat]

Hi Leute!

Ich bin mit meinem Programm zwar schon ein gutes Stückchen weitergekommen, stehe jetzt aber wieder einmal vor einem Rätsel...

Per Zufall werden Zahlen ermittelt, die dann in einem Array abgelegt werden. Mit diesem geht’s dann in eine andere Prozedur, wo entsprechend der zahlen verschiedene Töne gespielt sollen, was auch sehr gut klappt.
Aber: Es soll nicht nur Musik erklingen, sondern es soll auch Text ausgegeben werden, was leider NICHT klappt...!
Hier ein Stück meiner Routine: (zum testen sollen (eigentlich...) erstmal verschiedene Worte erscheinen – hier "Hallo!"

Delphi-Quellcode:

zaehler1 := 0;
    
    ...
    while zaehler1 <= max do
    begin
        case song[zaehler1] of
            1 : begin
                    sndPlaySound('1.wav', SND_ASYNC);
                    Edit1.Text :='Hallo!';
       end;
    ...

Warum erklingt 1.wav, und Edit1.Text erscheint nicht???

[edit=sakura] @Luckie: [delphi]-Tags Mfg, sakura[/edit]