Добрый день,
Попробуйте такое решение.
1.
procedure TMainForm.UniFormCreate(Sender: TObject);
begin
UniListBox1.ClientEvents.ExtEvents.Values['store.add'] := 'function store.add(store, records, index, eOpts){Ext.defer(function(){'+ UniListBox1.JSName +'.boundList.select(records[0])}, 10)}';
end;
2.
procedure TMainForm.UniButton1Click(Sender: TObject);
var
s: string;
begin
s := 'test9 new row 123';
UniListBox1.Items.Add(s);
end;