[Washington]

Это всё понятно, но допустим я добывляю элементы в ListBox из ADOQuery:

Код:

Index:=StrToInt(Label3.Caption)-1;
  if ADOQuery3.FieldByName('Punkt').AsInteger=1 then
  begin
   with (Control as TListBox).Canvas do
    begin
     Font.Style:=[fsBold];
     FillRect(Rect);
     TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
    end;
  end;

У меня получается, что в ListBox добавляются все элементы, а потом прорисовываются и вообще не-то что мне нужно отображается.

Через другое событие можно это выполнять?