[Razor12911]

Copy and Paste this
[CODE]

var
  DirTreeView: TFolderTreeView;
procedure DirFolderChange(Sender: TObject);
Begin
WizardForm.DirEdit.Text:=AddBackslash(DirTreeView.Directory)
end;

Procedure InitializeWizard;
begin
DirTreeView:= TFolderTreeView.Create(WizardForm) 
DirTreeView.SetBounds(0,100,417,110)
DirTreeView.OnChange:= @DirFolderChange
DirTreeView.Parent:= WizardForm.SelectDirPage
end;

for this