Combobox, morgen Prüfung kleine Frage

[Bamer]

Gelöst
E: Wenn mir jemand sagen könnte wieso ich das hinzufügen müsste würd ich mich freuen.

Controls in uses hinzufügen
self.Parent := AOwner as TWinControl; nach create von der Combobox im Constructor
Guten Tag,

ich hoffe ich bin hier im richtigen Forum, wenn nicht dann entschuldige ich mich dafür.
Ich habe eine wichtige Frage und bin hier am verzweifeln.
Wenn ich mein Programm starte kommt ein Fehler weiss jemand wieso?
Ich möchte in die Combobox mein Array einfügen.

Delphi-Quellcode:

unit DecodeU;

interface
uses ExtCtrls, Classes, StdCtrls, Controls ;



type TDecode=class(TPanel)

private
  Ring1:TCombobox;
 // Ring2:TCombobox;
 // Ring3:TCombobox;
 // Ring4:TCombobox;
 zahl:integer;
{-Wert1: array[0..9] of integer = (0,1,2,3,4,5,6,7,8,9);
  FarbString2: array[0..9] of String = ('schwarz','braun','rot','orange','gelb','grün','blau','violett','grau','weiß');
  Wert2: array[0..9] of integer = (0,1,2,3,4,5,6,7,8,9);
  FarbString3: array[0..11] of String = ('silber','gold','schwarz','braun','rot','orange','gelb','grün','blau','violett','grau','weiß');
  Wert3: array[0..11] of integer = (0.01,0.1,1,10,100,1000,10000,100000,1000000,10000000,100000000,1000000000);
  FarbString4: array[0..11] of String = ('keine','silber','gold','schwarz','braun','rot','orange','gelb','grün','blau','violett','grau');
  Wert4: array[0..11] of integer = (20,10,5,0,1,2,0,0,0.50,0.25,0.10,0.05); -}
public
  constructor Create(AOwner:TComponent); override;
end;
const    FarbString1: array[0..9] of String = ('---','braun','rot','orange','gelb','grün','blau','violett','grau','weiß');
         Wert1: array[0..9] of integer = (0,1,2,3,4,5,6,7,8,9);
implementation

{ TDecode }

constructor TDecode.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  width:=600;
  height:=200;
  Ring1:= TCombobox.create(self);
  self.Parent := AOwner as TWinControl;
  Ring1.Parent := Self;
  Ring1.width:=100;
  Ring1.top:=100;
  Ring1.left:=100;
  Ring1.Items.Add(FarbString1[0]); <---- Fehler : Project mainP.exe raised exception class EInvalidOperation with message 'COntrol " has no parent window'. Proxess stopped. Use Step      
                                               or Run to continue.
end;

end.

Da wo der Fehler kommt habe ich schon einiges Versucht aber keiner hat geklappt könnte mir jmd die Rätels Lösung zeigen?

Danke im Vorraus!

LG Bamer