Как создать процедуру массиву компонентов?

browsers: array[0..1000] of tchromium;

browsers[tabs1.ActiveTabIndex].OnTitleChanged

  procedure MyTitleChange(Sender: TObject; const browser: ICefBrowser;
      const title: ustring; out Result: Boolean);

  browsers[tabs1.ActiveTabIndex].OnTitleChanged := MyTitleChange;

  public
    { Public declarations }
    Browsers : array[0..1000] of TChromium;
 
    procedure MyTitleChange(Sender: TObject; const browser: ICefBrowser;
      const title: ustring; out Result: Boolean);
  end;
...
procedure TForm1.MyTitleChange(Sender: TObject; const browser: ICefBrowser;
      const title: ustring; out Result: Boolean);
begin
  // our code
end;

procedure TForm1.MyTitleChange(Sender: TObject; const browser: ICefBrowser;
      const title: ustring; out Result: Boolean);
 begin
  Tabs1.Tabs.ActiveTab.Caption:=title;
  if result=true then browsers[tabs1.ActiveTabIndex].OnTitleChange:=MyTitleChange;
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Browsers[0] := TChromium.Create(Self);
  Browsers[0].OnTitleChange := MyTitleChange;
end;

  for I := 0 to XX do
  begin  
    Browsers[I] := TChromium.Create(Self);
    Browsers[I].Tag := I;
  end;
 
// в опросе
procedure TForm1.MyTitleChange(Sender: TObject; const browser: ICefBrowser;
      const title: ustring; out Result: Boolean);
begin
  case (Sender as TChromium).Tag of
    0 : ;// our code
    1 : ;// our code
...
    XX : ;// our code
  end;
end;