procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add('Ryu');
  ListBox1.ItemIndex:= ListBox1.Items.Count-1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Items.Add('Ryu');
  SendMessage(ListBox1.Handle, WM_VSCROLL, SB_BOTTOM, 0);
end;


둘중에 맘에 드는 것을 선택하세요..

From 류..