[saurn]

Как исправить ?»

Там нечего исправлять, пример рабочий. Вероятно, Вы где-то допустили ошибку.

Пример

Код:

[code]
const
    STR_TBOX = #32'Папка установки:'#32;


procedure _CtrlsEdit();
var
    _tBox: TNewGroupBox;
begin
    with WizardForm do
    begin
        _tBox := TNewGroupBox.Create( nil );
        with _tBox do
        begin
            Parent := SelectDirPage;
            SetBounds( ScaleX( 0 ), ScaleY( 100 ), ScaleX( 417 ), ScaleY( 60 ) );
            Caption := STR_TBOX;
        end;

        with DirBrowseButton do
        begin
            Left := ScaleX( 334 );
            Top := ScaleY( 23 );
            Parent := _tBox;
        end;

        with DirEdit do
        begin
            Left := ScaleX( 8 );
            Top := ScaleY( 24 );
            Width := ScaleX( 320 );
            Parent := _tBox;
        end;
    end;
end;


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