FillRect funktioniert nicht

[himitsu]

Genau.

Delphi-Quellcode:

{Game / OnCreate}
Procedure TGame.FormCreate(Sender: TObject);
  Begin
    Background := TBitmap.Create;
    Background.Height := Game.ClientHeight;
    Background.Width  := Game.ClientWidth;
  End;

{Game / OnPaint}
Procedure TForm1.FormPaint(Sender: TObject);
  Begin
    DrawScreen;
  End;

{Game / OnDestroy}
Procedure TGame.FormDestroy(Sender: TObject);
  Begin
    Background.Free;
  End;