Hallo,
gleich vorweg: Tolle Idee, die echten Zeilennummern als Kommentar im Code zu ergänzen. So lassen sich die Meldungen dem Code leicht zuordnen.
Ich muss mich Detlef jedoch anschließen. Bei mir funktioniert der Code problemlos. Wenn du ein kleines Demo-Projekt erstellen könntest, mit dem wir die Meldungen reproduzieren können, wäre es für uns einfacher, den Fehler zu finden.
Die Meldung "Doppeltes Case-Label" erscheint normalerweise, wenn du 2 mal die gleiche Case-Bedingung angibst. Beispiel:
Delphi-Quellcode:
case Shape1.Shape of
stCircle: ...;
stCircle: ...; // doppelt
stSquare: ...;
end;
Grüße, Matze