Dynamiczne tworzenie komponetow TEdit TWebBrowser

Witam mam problem a mianowicie tworze np: 5 tabsheet-ow a na nich Edit i WebBrowser
i chce zeby text z edita wedrowal do odpowiedniego webbrowser-a na poszczegolnej karcie.Glownie problemem jest znajdowanie komponentu WB.

<code>
procedure  TForm1.NewEdits(Sender: TObject; var Key: Char);
var
Memo : TMemo;
Stream: TStringStream;
NewWeb  : TWebBrowser;
pPSI: IPersistStreamInit;
begin
if key= #13 then
begin
// i to jest cos zle..
NewWeb:=TWebBrowser(self.FindComponent('w'+IntToStr(PageControl1.ActivePageIndex)));
NewWeb.Navigate(TEdit(sender).text);
          end;
end;

// tu towrze Edit i WB.
procedure TForm1.FindTab(Tab,msg : string);
var
Tabs : TTabSheet;
Tabscapt,Result :string;
I : integer;
NewEdit : TEdit;
NewWeb  : TWebBrowser;
stream: TStringStream;
begin

//sprawdzanie czy page istnieje..
for i:=0 to PageControl1.PageCount-1 do
 begin
Tabscapt:=PageControl1.Pages[i].Caption;

if Tab=Tabscapt then
        begin
        Result:='ok';
        exit;
        end;
        Result:='no';

end;

          if Result='no' then
          begin
          Tabs := TTabSheet.Create(Self);
          Tabs.Caption      := Tab;
          Tabs.PageControl  := PageControl1;

    NewEdit :=TEdit.Create(self);
    //NewEdit.Name :=tab;
    NewEdit.Width:=400; // szerokość przycisku
    NewEdit.Height:=19; // wysość przycisku
    NewEdit.Name:='e'+IntToStr(PageControl1.PageCount-1);
    NewEdit.Left:=8; // pozycja X przycisku na formularzu
    NewEdit.Top:=250; // pozycja Y przycisku na formularzu
    NewEdit.Parent:=PageControl1.Pages[PageControl1.PageCount-1];
    NewEdit.OnKeyPress:=NewEdits;
    NewEdit.Visible:=True; // czy przycisk widoczny?

    NewWeb :=TWebBrowser.Create(Tabs);
    NewWeb.Width:=400; // szerokość przycisku
    NewWeb.Height:=220; // wysość przycisku
    NewWeb.Left:=8; // pozycja X przycisku na formularzu
    NewWeb.Top:=8; // pozycja Y przycisku na formularzu
    NewWeb.Visible:=True;

    TWinControl(NewWeb).Name := 'w'+IntToStr(PageControl1.PageCount-1);
    TWinControl(NewWeb).Parent := Tabs;
        end;



end;

prosze o pomoc..
za podpowiedzi z gory dzieki..

jeśli na każdej karcie jest to samo to zrób sobie rekord/klasę z tym co jest na pojedyńczej karcie, a potem wkładaj to np do listy czy tablicy - nie musisz nic szukać, wszystko masz od razu pod ręką

a nie da sie jakos prosciej? : ) zwykle wyszukiwalem component.name ...