EAccessViolation beim aufrufen der eigenen Klasse

[shmia]

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;