Segun lo que yo entendí necesitas algo como esto:
Agrega la unidad "FileCtrl" al uses de tu form, agrega un edit y un botón, en el evento OnClick del botón pones el codigo siguiente
procedure TForm1.Button1Click(Sender: TObject);
var directorio:string;
begin
SelectDirectory('Selecciona la carpeta de origen','',directorio);
Edit1.Text := directorio;
end;
Eso te muestra un dialogo de seleccion de directorio y al aceptar te actualiza el edit con el directorio, el openDialog, no te serviría pues para que ese te regrese una ruta necesitas seleccionar un archivo para que su evento se ejecute con éxito.
Si no es lo que buscas, especifica con más claridad tu problema