der der en OpenDirectoryDialog?

Uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  strFolder: String;
begin
  strFolder := '';
  SelectDirectory('Vælg en folder', '', strFolder);
  If strFolder <> '' Then
    ShowMessage('Du valgte folderen ' + strFolder)
  Else
    ShowMessage('Du valgte ikke en folder');
end;

Eller lidt "kønnere" ;)

procedure TForm1.Button1Click(Sender: TObject);
var
  strFolder: String;
begin
  If SelectDirectory('Vælg en folder', '', strFolder) Then
    ShowMessage('Du valgte folderen ' + strFolder)
  Else
    ShowMessage('Du valgte ikke en folder');
end;

Du kan evt. kigge på eksemplet i hjælpen hvis du vil give brugeren mulighed for at oprette en ny folder, eller hvis du selv vil bestemme hvilken folder den skal være valgt når man åbner dialogen.

tak