[AlekseyPopovv]

Как эту процедуру разделить на портабле и инсталлер:

procedure SettClick(Sender: TObject);
begin
case TNewRadioButton(Sender) of
Bus:
begin
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf32}\{#MyAppCompany}')) + '{#MyAppName} {#Bus}';
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} {#Bus} Portable';
end;
Net:
begin
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf32}\{#MyAppCompany}')) + '{#MyAppName} {#Net}';
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#MyAppName} {#Net} Portable';
end;
end;
end;

Если добавить if Installer.Checked then или if Portable.Checked then скрипт компилируется, но при запуске инсталлятора выдаёт ошибку:

Runtime Error (at 80:119):

Could not call proc.