[habib2302]

люди.помогите мне объединить эти два скрипта

Код:

procedure InitializeUninstallProgressForm();
begin
  with TBitmapImage.Create(nil) do
begin
                Parent := UninstallProgressForm;
                Bitmap.LoadFromResourceName(HInstance, '_IS_logo');
                Stretch:= true;
                SetBounds(ScaleX(20), ScaleY(315), ScaleX(154), ScaleY(42)); {первые 2 параметра - координаты левогого верхнего угла по горизонтали и вертикали, дальше ширина и высота, до которой растянуть}
  end;
end;

Код:

procedure InitializeUninstallProgressForm();
begin
FileCopy(ExpandConstant('{app}\WizardSmallImage.bmp'), ExpandConstant('{app}\WizardSmallImage.bmp'), False);
with UninstallProgressForm.WizardSmallBitmapImage do
begin
Bitmap.LoadFromFile(ExpandConstant('{app}\WizardSmallImage.bmp'));
end;
end;