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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

unit DartBoard;

interface

uses
   Messages, SysUtils, Variants, Classes, Graphics, Controls,
   Dialogs, ExtCtrls, StdCtrls;

type
  TImageBox = class(TPaintBox)
  private
    Tboard: TGraphic;

  public
    constructor Create(AOwner: TComponent);
    destructor Destroy; override;
    procedure OnPaint(Sender : TObject);
  end;

implementation

{ TImageBox }

constructor TImageBox.Create;
begin
  inherited Create(AOwner);
  TBoard := TGraphic.Create;
  TBoard.LoadFromFile('Dartbrett.bmp');
end;

destructor TImageBox.Destroy;
begin
  FreeAndNil(TBoard);
  inherited;
end;

procedure TImageBox.OnPaint(Sender : TObject);
begin
  Canvas.Draw(0,0,TBoard); 
end;
end.                    

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

    private
       Gameboard : TImageBox; 

    Gameboard := TImageBox.Create(self);
    Gameboard.Left := 410;
    Gameboard.Top := 125;
    Gameboard.Width := 350;
    Gameboard.height := 350;
    Gameboard.OnPaint(self);                    

1:

Gameboard : TImageBoard;