{
Filter, Mask example
This example uses a filter combo box and a file list box on a form. When the user selects a filter in the filter combo box, the file list box displays only files which match the selected mask:
} 
procedure TForm1.FilterComboBox1Change(Sender: TObject);
begin
  FileListBox1.Mask := FilterComboBox1.Mask;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  FilterComboBox1.Filter := 'All files (*.*)|*.*| Pascal files (*.pas)|*.pas';
end; 
