Глупый вопрос по циклу и 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, но сейчас выводится до конца файла всё, а мне надо чтобы выводились записи с номером как у листбокса, как сделать?

[cooler]

Спасибо
Ещё вопросик

Код

Form2.ADOQuery1.Edit;
Form2.ADOQuery1.insert;
Form2.ADOQuery1.FieldByName('event_name').Asstring := Edit1.Text;
Form2.ADOQuery1.FieldByName('bet_id').Asinteger := 5;         //<---------------
Form2.ADOQuery1.Post;

Записывается в БД, как сделать чтобы в bet_id записывалось значение, следующее после того что уже есть в БД
Например, 9 записей, и пишет 10, когда добавляет 10ую
Тоже как-то просто....

Сообщение отредактировано: cooler - 14.05.2010 12:56