Einträge in ComboBox hinzufügen

[Jack23]

Ich füge mit folgenden Code in ein ComboBox Einträge aus einer DB hinzu.

Bei einem onCreate Ereignis.

Warum klappt das nicht? Das ist mein ganzer Code:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('Test').asString);
end;