begin
  with TTable do
  begin
    Close;
    TableName:='TableName'; // <-- name of table
    Open;
    if not IsEmpty then
      while not Eof do
      begin
        CheckListBox1.Items.Add(Fields[0].AsString);
        Next
      end;
  end;  
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with ADOTable1 do
  begin
    Close;
    TableName:='TPegawai';
    Open;
    if not IsEmpty then
      while not eof do
      begin
        CheckListBox1.Items.Add(Fields[0].AsString);
        Next
      end
  end
end;