1:
2:
3:
4:
5:
6:
7:
8:

type
        TEngine = class
                bmpmain: tbitmap;
                procedure Initialize(color, width, height: integer);
                procedure shutdown;
                procedure draw(Drawform: tform);

        end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TEngine.Initialize(color, width, height: integer);
begin

bmpmain.Width := width;
bmpmain.Height := height;
bmpmain.Canvas.Brush.Style := bssolid;
bmpmain.Canvas.Brush.Color := color;
bmpmain.Canvas.Rectangle(0, 0, width, height);

end;					

1:
2:
3:
4:

procedure TForm1.FormResize(Sender: TObject);
begin
Engine.Initialize(clblack, clientwidth, clientheight);
end;					

1:

Engine := tEngine.Create;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Type
  tEngine = Class
      Private
        bmpmain: tbitmap;
      Public
        Constructor Create;
        Destructor Destroy;  override;

        Procedure Initialize(color, width, height: integer);
        Procedure shutdown;
        Procedure draw(Drawform: tform);
    End;

{...}

Constructor tEngine.Create;
Begin
  bmpmain := tBitmap.Create (nil);
End;

Destructor tEngine.Destroy;
Begin
  bmpmain.Free;
  Inherited;
End;