BDE и label

[medved6216]

Есть база данных bde и 6 label, динамических.
Как сделать чтобы в 6 label отобразить 6 первых пунктов из базы?
И по нажатию кнопки отобразить второе шесть пунктов?
если сделать так:

label_item_name[0].Caption := query.FieldByName('title').asstring;

То он отображает только первый пункт в label.
лейблы делаю так:

for n:=0 to inc do
  begin
    label_item_name[n] := TsLabel.Create(Form1);
    label_item_name[n].top := 4;
    label_item_name[n].width := 75;
    label_item_name[n].left := 5;
    label_item_name[n].Caption := 'Name_Items';
    label_item_name[n].font.Charset := RUSSIAN_CHARSET;
    label_item_name[n].Font.Name := 'Times New Roman';
    label_item_name[n].Font.Size := 12;
    label_item_name[n].Font.Style := [fsBold];
    label_item_name[n].parent := panel[n];
  end;

[medved6216]

Сам решил)

var
i : integer;
begin
i := 0;
//Query.First;
repeat
begin
label_item_name[i].Caption := query.FieldByName('title').asstring;
query.Next;
i := i + 1;
end;
until i >= 5;
end;