你试试用数组让每一个新建立的窗体的名字不同，关闭时再用这个数组注销窗体

var
  MyDialogs: TList;

procedure TDialogForm.FormCreate(Sender: TObject);
begin
  MyDialogs.Add(Pointer(Self));
end;

procedure TDialogForm.FormDestroy(Sender: TObject);
begin
  MyDialogs.Remove(Pointer(Self));
end;

...