Eigentlich sollte ja in einem Label der Fehler ausgegeben werden.
Aber ich glaube ich habe die Ursache gefunden:
Diese Zeilen:
Delphi-Quellcode:
SendMessage(win, wm_info_update, 4,
Form1.Bitrate :=
Copy(icy, 8, MaxInt);
Hätten so sein müssen:
Delphi-Quellcode:
//
Form1.Bitrate :=
Copy(icy, 8, MaxInt);
So, jetzt wars damit aber nicht getan, im Code stand es dann auch noch so dort:
Delphi-Quellcode:
SendMessage(win, wm_info_update, 4,
Form1.Bitrate :=
Copy(icy, 8, MaxInt);
Form1.Bitrate :=
Copy(icy, 8, MaxInt);
Beides zusammen..
Ok. Der Fehler ist behoben. Trotzdem Danke an alle.