[saneksanek]

Помогите пожалуйста,не получается данный код объединить с тегами [Types] и [Components]

Код:

var
  TascInfoImage: TBitmapImage;

procedure TasksListClickCheck(Sender: TObject);
begin
  TascInfoImage.Bitmap.FreeImage;
  If IsTaskSelected('A') then
    TascInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp')) else
  If IsTaskSelected('B') then
    TascInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\2.bmp')) else
  If IsTaskSelected('C') then
    TascInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\3.bmp'));
end;

procedure InitializeWizard();
begin
    ExtractTemporaryFile('1.bmp');
    ExtractTemporaryFile('2.bmp');
    ExtractTemporaryFile('3.bmp');

    WizardForm.TasksList.Width := ScaleX(193);
    WizardForm.TasksList.OnClickCheck := @TasksListClickCheck;

  TascInfoImage := TBitmapImage.Create(WizardForm);
  with TascInfoImage do
  begin
    Parent := WizardForm.SelectTasksPage;
    SetBounds(ScaleX(200),ScaleY(37),ScaleX(217),ScaleY(192));
    Stretch := True;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpSelectTasks: TasksListClickCheck(nil);
  end;
end;