procedure TMainForm.UniFormCreate(Sender: TObject);
begin
UniComboBox1.MinQueryLength := 100;
end;
procedure TMainForm.UniComboBox1Change(Sender: TObject);
var
I: integer;
begin
for I := 0 to 3 do
begin
UniComboBox1.Items.Add(IntToStr(random(200))) ;
end;
(Sender as TUniComboBox).JSInterface.JSCallDefer('expand', [], 200);
end;