Jak zbudować taki warunek ?

ort! prosze o moderatorów aby nie ort! tego posta ponieważ szukam odpowiedzi już dlugi czas i nie umiem się połapać :(
Chodzi mi o taki warunek :
Wyszukaj czy istnieje TABSHeet o caption:= text jezeli znalazles to pokaz go jezeli nie to utworz nowy
probowlalem z for to do i pozniej POS ale nic ! :( prosze o pomoc !! ;(

// nie rozumiem... o co prosisz ? [mf]

chodzi mi o to ze tworze TabSheet'y dynamicznie bez parametru name tylko z caption, i teraz jak przychodzi np: nowa wiadomosc to aplkacja ma znaleŹĆ ten tabsheet ktory ma caption jako nick uzytkownika a jezeli nie ma takigo captiona w tabsheet to utworzyc go ( funkcje do tworzenia juz mam ).

function GetTabSheet(PageControl: TPageControl; Name: String): TTabSheet;
var
  q: Integer;
begin
  for q := 0 to PageControl.PageCount -1 do
    if pos(Name, PageControl.Pages[q].Caption) > 0 then begin
      Result := PageControl.Pages[q];
      Exit;
    end;
  Result := TTabSheet.Create(PageControl); 
  Result.Parent := PageControl;
  Result.Caption := Name;
end;

Nie sprawdzalem i nie wiem, czy dziala.

Wyloozuj to był dżołk z błędów... nie ma takich słow jak 'usówanie', czy 'przede wszystkim':]

Można też tak

var
 i: integer;
 jest: boolean;
 tab: TTabSheet;
begin
 jest:=false;
 for i:=0 to ComponentCount-1 do
      if (components[i] is TTabSheet) then 
         if (components[i] as TTabSheet).Caption = 'Tekst' then 
            begin
              jest:=true;           
              cos tam;
            end;
 if not jest then
    begin
      tab := TTabSheet.Create;
      tab.Caption:='Tekst';
    end;  

Juhas .. trochę oszczędności koduuu .. pleaseeee