ListBox

Jak w czasie kreowania Formy zmusić komponent ListBox do tego by wyświetlił nam na ekranie sam koniec listy ( przewinąć na sam koniec )

procedure TForm1.FormCreate(Sender: TObject);
var
 i:integer;
begin
 for i:=0 to 15 do
   ListBox1.Items.Add(IntToStr(i));
 ListBox1.TopIndex:=15;
end;

Lista okoł 300 pozycji jest wczytana, nie chcę jej tworzyć, chcę zobaczyć sam koniec tak jak tym ją przewiną scrollem na sam koniec

ListBox1.TopIndex := ListBox1.Items.Count - 1;

Genialnie proste Dzięki działa.

//można się tego było spokojnie domyśleć z mojego postu, dasej. pq. pozdr :)