[_Code]
var
DirEditLabel, GroupEditLabel: TLabel;

//======{Для обновления надписи при смене пути}======\\
procedure DirChange(Sender: TObject); begin DirEditLabel.Caption:=WizardForm.DirEdit.Text; end;
procedure GroupChange(Sender: TObject); begin GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width); end;
//======{Для обновления надписи при смене пути}======\\

Function LabelP(Parent: TWinControl; AutoSize, WordWrap, Transparent: Boolean; FontName: String; FontStyle: TFontStyles; FontColor: TColor; FontSize: Integer; Alignment: TAlignment; Left, Top, Width, Height: Integer; Caption: String): TLabel;
Begin
Result:=TLabel.Create(Parent); Result.parent:= Parent;
if Top > 0 then result.Top:=Top; if Left > 0 then result.Left:= Left; if Width > 0 then result.Width:= Width; if Height > 0 then result.Height:= Height; result.AutoSize:= AutoSize; result.WordWrap:= WordWrap; result.Transparent:=Transparent;
if FontName <> '' then result.Font.Name:= FontName; if FontColor > 0 then result.Font.Color:= FontColor; if FontStyle <> [] then result.Font.Style:= FontStyle; result.Font.Size:= FontSize; if Caption <> '' then result.Caption:= Caption; result.Alignment:=Alignment;
End;

procedure CBLALL();
begin
// Строка для минемизацыи пути (При подключении замените: [ WizardForm.DirEdit.Text ] и [WizardForm.GroupEdit.Text] на [ '' ] в выше стоящих строках над ними)
DirEditLabel:= LabelP(WizardForm, false, true, true, 'Georgia', [fsBold, fsItalic], clBlue, 9, taLeftJustify, 70, 400, 550, 15, WizardForm.DirEdit.Text)
// DirEditLabel.Caption:= MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width); // Строка для минемизацыи пути
GroupEditLabel:= LabelP(WizardForm, false, true, true, 'Georgia', [fsBold, fsItalic], clBlue, 9, taLeftJustify, 70, 425, 550, 15, WizardForm.GroupEdit.Text)
// GroupEditLabel.Caption:= MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width); // Строка для минемизацыи пути

//======{Для обновления надписи при смене пути}======\\
WizardForm.DirEdit.OnChange := @DirChange; //Для обновления надписи при смене пути
WizardForm.GroupEdit.OnChange := @GroupChange; //Для обновления надписи при смене пути
//======{Для обновления надписи при смене пути}======\\
end;

procedure InitializeWizard();
begin
WizardForm.ClientWidth:=ScaleX(798);
WizardForm.ClientHeight:=ScaleY(543);
WizardForm.Center;
WizardForm.OuterNotebook.Hide;
WizardForm.InnerNotebook.Hide;
WizardForm.Bevel.Hide;
// WizardForm.Color:=clBlack;
//======{Перемещение кнопок}======\\
{Назад}
WizardForm.BackButton.Top:=480;
WizardForm.BackButton.Left:=485;
// WizardForm.BackButton.Height:=23;
// WizardForm.BackButton.Width:=80;
{Далее}
WizardForm.NextButton.Top:=480;
WizardForm.NextButton.Left:=585;
// WizardForm.NextButton.Height:=23;
// WizardForm.NextButton.Width:=80;
{Отмена}
WizardForm.CancelButton.Top:=480;
WizardForm.CancelButton.Left:=670;
// WizardForm.CancelButton.Height:=23;
// WizardForm.CancelButton.Width:=80;
{Dir-Обзор}
Wizardform.DirBrowseButton.parent:= wizardform
Wizardform.DirBrowseButton.Top:=400
Wizardform.DirBrowseButton.Left:=670
Wizardform.DirBrowseButton.Height:=23
Wizardform.DirBrowseButton.Width:=80
{Group-Обзор}
Wizardform.GroupBrowseButton.parent:= wizardform
Wizardform.GroupBrowseButton.Top:=425
Wizardform.GroupBrowseButton.Left:=670
Wizardform.GroupBrowseButton.Height:=23
Wizardform.GroupBrowseButton.Width:=80
//======{Перемещение кнопок}======\\
CBLALL();
end;