Работа с PageControl

procedure TForm28.Button1Click(Sender: TObject);
var
  i,h,g:integer;
  PageControl: TPageControl;
  TabSheet: TTabSheet;
begin
h:=0;
 if PageControl1.PageCount > 0 then
                  begin
                    for i := 0 to PageControl1.PageCount-1 do
                      begin
                        if PageControl1.Pages[i].Caption = Edit1.Text then
                          begin
                             h:=h+1;
                             g:=i;
                              PageControl1.ActivePageIndex:=i;
                              break;
                          end;
                          end;
end;
 
if h=1 then  begin
PageControl1.ActivePageIndex := g;
 
                          for i := 0 to PageControl1.Pages[g].ComponentCount-1 do
                            begin
                              if (PageControl1.Pages[g].Components[i] is TMemo) then
                                begin
                                  (PageControl1.Pages[g].Components[i] as TMemo).Lines.Add(Edit2.Text);
                                end;
 
                            end;
                        end;
 
 
 
 
end;
 
procedure TForm28.ListBox1Click(Sender: TObject);
var
 
  i,h:integer;
  PageControl: TPageControl;
  TabSheet: TTabSheet;
begin
  h:=0;
   if PageControl1.PageCount > 0 then
                  begin
                    for i := 0 to PageControl1.PageCount-1 do
                      begin
                        if PageControl1.Pages[i].Caption = ListBox1.Items[ListBox1.ItemIndex] then
                          begin
                             h:=h+1;
                              PageControl1.ActivePageIndex:=i;
                            Break;
                          end;
                          end;
  if h=0 then begin
  TabSheet:= TTabSheet.Create(Self);
  TabSheet.Caption := ListBox1.Items[ListBox1.ItemIndex];
  TabSheet.PageControl:= PageControl1;
  with TMemo.Create(Self) do
  begin
    Parent := TabSheet;
  end;
 PageControl1.ActivePage := TabSheet;
end;
  end;
 
end;
 
end.