CheckListBox1.Clear;
For i:=0 to Query1.FieldCount-1 do
begin
CheckListBox1.Items.Add(Query1.Fields .FieldName);
CheckListBox1.Checked[CheckListBox1.Items.count-1]:= true;
end;

блин, сбил с понталыку своим кодом, вот я те и ответил неправильно,
почему-то подумал что тебе список полей надо вывести в чеклистбокс,
извиняюсь.

"Мне нужно чтобы при нажатии на кнопку (Button1) все строки из колонки NAM, таблицы kp, отобразились в CheckListBox'e "

Листинг:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for I:= 0 to Query1.FieldCount - 1 do begin "

у тебя же однозначно цикл организован по списку полей, а не по содержимому запроса

конечно, надо как Papka сказал делать.

но вообще-то, зачем бедный чекбокслист мучить - вдруг в запросе много строк будет, не лучше ли вывести в грид результаты, а если хочешь чекбокс чтоб был, то добавь в строку запроса
select distinct cast(0 as bit), Nam from Table1
и используй DBGridEh - он может сразу показывать чекбокс редактируемый.