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

type TSpecimen = class(TImage)
private
  Feld: Variant;
  procedure FeldWrite(Value: Variant);

public
  constructor Create(AOwner: TComponent); override;

  property PixArray : Variant read Feld write FeldWrite;
end;

implementation

constructor TSpecimen.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  self.Parent:= inherited Parent;
end;

procedure TSpecimen.FeldWrite(Value: Variant);
begin
  self.Feld:=Value;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

type TForm1 = class(TForm)
    K1: TPanel;
    K2: TPanel;
    K3: TPanel;
    procedure FormCreate(Sender: TObject);
end;
var KC: array[1..3] of TImage;

implementation

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 3 do
  begin
    KC[i]:=TSpecimen.Create(FindComponent('K'+IntToStr(i)) as TPanel);
  end;
end;					

1:
2:
3:
4:
5:

constructor TSpecimen.Create(AOwner: TComponent);
begin
  inherited Create(AOwner); // Parent ist noch NIL, auch das "inherited Parent" (was immer das auch sein soll ;-) )
  self.Parent:= inherited Parent;  // Parent ist immer noch NIL, weil hier Parent := Parent gesetzt wird.
end;