1:
2:
3:
4:
5:
6:
7:

procedure TfrmMain.btnSelectSourceFolderClick(Sender: TObject);
var FB: TFolderBrowser;
begin
  FB := TFolderBrowser.Create(hwndDlg, 'Ordner wählen',
                              'C:\');
  edtSourceFolder.Text := PicturesFolder;
end;