procedure TfrmSeleDirectory.btnOKClick(Sender: TObject);
begin
if (FileListBox1.Items.Count = 0) or (FilterComboBox1.ItemIndex = 1) then
SeleDirectoryLabel.Caption := '';
Close;
end;
const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:\MYDIR';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;