Проверка Caption динамически создаваемых TabSheet

[Молоток]

Добрые люди!, имеется Timer1. После каждых 5 секунд создаются TabSheet с Caption-ами из БД в PageControl-е. Как сделать так, что бы при создании нового TabSheet-а сначало проверялись Caption-ы всех уже созданных TabSheet-ов. Спасибо за уделенные время и внимания.

[Sparkman]

function SheetExist(pgctrl:TPageControl;etalon:string):boolean;
var i:integer;
begin
     result:=false;
     for i:=0 to pgctrl.PageCount-1 do
     if pgctrl.Pages[i].Caption=etalon then
     begin
          result:=true;
          exit;
     end;
end;

[Молоток]

спасибо большое Sparkman