关于创建和删除子窗体解决方法

关于创建和删除子窗体
procedure TFrm_main.setformname(name: string);
var
  Ttab: Ttabsheet;
begin
  Ttab := Ttabsheet.Create(nil);
  Ttab.PageControl := Pagec;
  Ttab.Caption := name;
  Pagec.ActivePage := Ttab;
end;

procedure TFrm_main.delformname(name: string);
var
  I: Integer;
begin
  for I := 0 to Pagec.PageCount - 1 do
  begin
  if Pagec.Pages[I].Caption = Trim(name) then
  begin
  Pagec.Pages[I].Free;
  break;
  end;
  end;
end;
每次创建了，正常关闭都可以清除窗体，但有时最小化了再打开某个窗体时窗体名称为_1,比如form1_1,现最小化打开时会显示form1_2,我想如何在打开窗体把以前的窗体全部关闭，每次显示的窗体名都为form1

------解决方案--------------------
在你的代码中哪有创建窗体及删除子窗体的的语句？