怎么样将数组中的内容赋给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;