Hi,
2 Sachen die das Problem sind:
Du solltest Painter.Free aufrufen und nicht Painter.Destroy;
Delphi-Quellcode:
destructor TPaint.Destroy();
begin
inherited Destroy;
self.Free;
// <--- das erzeugt die AV. Das ist TÖDLICH!
end;
Gruß
Neutral General
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."