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:

var

  p: Tpanel;
  i: timage;
begin

  p := tpanel.Create(nil);
  p.Parent := self;
  p.SetBounds(x,y,x1,y1);
  p.BorderStyle := bsnone;
  p.BevelKind := bkflat;
  p.Bevelouter := bvnone;
  p.BevelEdges := [];   

  p.BorderWidth := 0;
  p.Color := farbe;
  p.ShowCaption := true;
  p.Visible := true;

  i := timage.Create(nil);
  
  i.parent := p;
  i.Transparent := true;
  i.SetBounds(x,y,x1,y1);
  i.Visible := true;
  i.Canvas.Brush.Color := farbe;

  i.Canvas.Rectangle(x,y,x1,y1);
  i.Canvas.TextOut(x,y,'Dies ist nur ein Test mal schauen ob er funktioniert');

end;					

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:

type
  TPanel = class(ExtCtrls.TPanel)
  private
    FOnPaint: TNotifyEvent;
  protected
    procedure Paint; override;
  public
    property Canvas;
  published
    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
  end;

  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

...

implementation

{ TPanel }

procedure TPanel.Paint;
begin
  inherited;
  if Assigned(FOnPaint) then
    FOnPaint(self);
end;