Seleccionar una carpeta

[roman]

No recuerdo si ya viene en Delphi 5 pero intenta incluir la unidad FileCtrl en tu proyecto. En dicha unidad viene una función que se llama SelectDirectory que te abre la ventana de selección de carpetas usual desde Windows95. Sería algo asi como:

var
  Carpeta: String;

begin
  if SelectDirectory(
    'Seleccione una carpeta', // Texto de la ventana
    'c:\documentos',  // Carpeta inicial
    Carpeta  // Carpeta seleccionada
  )
  then
    Application.MessageBox(PChar(Carpeta), 'Carpeta' , 0);

// Saludos