如何样将数组中的内容赋给checklistbox

怎么样将数组中的内容赋给checklistbox
procedure   TForm1.FormCreate(Sender:   TObject);
var   SelectList:array   [1..10000]   of   String;   //我定义的数组
        i:integer;
begin
    PortTextEdit.Clear;
    OpenQuery(Query1, 'SELECT   epname   FROM   s_enterprise ');
    Query1.First;
    i:=1;
    While   Not   Query1.Eof   do
    begin
        SelectList[i]:=   Query1.Fields[0].AsString;
        Query1.Next;
        inc(i);
    end;
        AllCheckListBox   ？？？？？？         //问这里怎么赋值啊,难到要再循环?
end;

[解决办法]
While Not Query1.Eof do
begin
SelectList[i]:= Query1.Fields[0].AsString;
AllCheckListBox.Items.Add(SelectList[i]);
Query1.Next;
inc(i);
end;