[:S.p.a.m.]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add('трабл');
  ListBox1.ItemIndex:=ListBox1.Count-1;
end;