[delphi]jak wstawic items jako pierwszy na ListBox

jak zrobić żeby dodany items był jako pierwszy na ListBox--roberto

var i:byte;
lista: array of String;
begin
listbox.items.add('');
SetLength(lista,ListBox.items.count+1);
For i:=0 to ListBox.items.count-1 do
lista[i+1]:=Listbox.items[i];
Lista[0]:='aaaaa';

For i:=0 to ListBox.items.count-1 do
Listbox.items[i]:=lista[i];
end;

||===

ListBox1.Items.Insert(0,'tekst');--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

{wstyd} --||===