[Gamattinol]

[code]

Код:

const
    STR_TXT = #32'Destination Folder'#32;


procedure _CtrlsEdit();
begin
    with WizardForm do
    begin
        with TBevel.Create( nil ) do
        begin
            Parent := SelectDirPage;
            SetBounds( ScaleX( 0 ), ScaleY( 125 ), ScaleX( 418 ), ScaleY( 50 ) );
            Shape := bsFrame;
        end;

        with TNewStaticText.Create( nil ) do
        begin
            Parent := SelectDirPage;
            Left := ScaleX( 13 );
            Top := ScaleY( 118 );
            AutoSize := True;
            Caption := STR_TXT;
        end;

        with DirBrowseButton do
        begin
            Left := ScaleX( 315 );
            Top := ScaleY( 137 );
            Width := ScaleX( 85 );
        end;

        with DirEdit do
        begin
            Left := ScaleX( 15 );
            Top := ScaleY( 139 );
            Width := ScaleX( 290 );
        end;
    end;
end;


procedure InitializeWizard();
begin
    _CtrlsEdit();
end;

Пока что только так получилось