Problem mit case of

[Schubi]

Dann schmeiß mal nach der änderung vom edit noch ein edit1.repaint oder ein application.processmessages rein!

Delphi-Quellcode:

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