ListBox1.Perform(LB_SELECTSTRING, -1, longint(Pchar(Edit1.text)));