Da sind immer noch 2 Fehler !!
Delphi-Quellcode:
procedure TMain.FormActivate(Sender: TObject);
begin
Main.Width := Screen.Width;
Main.Height := Screen.Height;
// FormActive kann unter Umständen öfters aufgerufen werden
// deshalb prüfen, ob dein Objekt schon erzeugt wurde
if not Assigned(Painter) then
Painter := TPaint.Create(PaintBox);
end;
procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Painter.Destroy;
Painter.Free; // du sollst doch immer .Free aufrufen; nicht .Destroy
end;