Hi,
interessant wäre noch die Klasse TSegment.
Ich würde z.B. die Bitmap im Constructor von TSegment erzeugen und im Destructor wieder freigeben.
Delphi-Quellcode:
// warum?
seg.bild:=TBitmap.Create;
So, wie du es jetzt machst, solltest du in TSegment im Destructor Bild auf nil prüfen und die Bitmap freigeben.
Aber wie gesagt, eigentlich erzeugt man zur Klasse gehörige Objekte nicht ohne driftigen Grund von aussen.
An welcher Stelle (Debugger benutzen) kommt denn der Fehler?
Frank