OpenDialog1->Filter = "Text files (*.txt)|*.TXT|Pascal files (*.pas)|*.PAS";

OpenDialog1->Filter = "Pascal files|*.PAS;*.DPK;*.DPR";