würd ich auch so sehen. Ich würd den Fehler hier vermuten:
Delphi-Quellcode:
procedure TDrawAreas.SetDrawItem(Index: Integer; Value: TDrawArea);
begin
Items[Index].Assign(Value);
end;
damit rufst du immer wieder die Setmethode auf. da fehlt das inherited, wie bei der getmethode.
Mfg Frank