Глупый вопрос по циклу и Listbox, помощь необходима Опции

[cooler]

procedure TForm2.ListBox4Click(Sender: TObject);
var    sDBItem1,sDBItem2,sDBItem3,sDBItem4,sDBItem5:string;
i,ia:integer;
begin

Memo1.Lines.Clear;

  with ADOQuery1 do  begin
     SQL.Clear;
    SQL.Add ('Select event_note,event_site,koeff_p1,koeff_n,koeff_p2 from bet');

     Open;
     First;
 while not eof do



  begin
   sDBItem1 := String(FieldValues ['event_note']);
   sDBItem2 := String(FieldValues ['event_site']);
   sDBItem3 := String(FieldValues ['koeff_p1']);
   sDBItem4 := String(FieldValues ['koeff_n']);
   sDBItem5 := String(FieldValues ['koeff_p2']);
   Memo1.lines.Add(sDBItem1);
   Memo1.lines.Add(sDBItem2);
   Memo1.lines.Add('Коэффициенты: '+ sDBItem3+' - '+sDBItem4+' - '+sDBItem5);
      Next;
    end;
end;
          end;

В листбоксе несколько записей(строк) при нажатии на разные строки должна появляться разная информация в Мемо, которая берется из файла БД access, но сейчас выводится до конца файла всё, а мне надо чтобы выводились записи с номером как у листбокса, как сделать?