ComboBox - selcionando mais aproximado

     ListBox1.Perform(Lb_SelectString, 0, LongInt(PChar(Edit1.Text)));