Komische Fehlermeldung

[Tommy1988]

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.