ListBox1.Perform(LB_DIR, 0, LParam(PChar('*.*')));