[Greco]

Empezado por enecumene

Hola Intenta esto:

Código Delphi [-]procedure TForm1.Button4Click(Sender: TObject);
begin OpenDialog1.Execute; Edit1.Text:=OpenDialog1.FileName; end;


Saludos.

En base a tu código probé lo siguiente:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  if JvBrowseForFolderDialog2.Execute then
  begin
    Edit1.Text:=JvBrowseForFolderDialog2.Directory;
  end;
end;

y me funcionó a la perfección.

Gracias por al ayuda.

Saludos