delphi 指定的名称不唯一

Question

按钮下的程序  lyr := Map1.Layers.CreateLayer('tempAnimate', EmptyParam,1,EmptyParam, EmptyParam);   //这一行出错
  Map1.Layers.AnimationLayer := lyr;//设为当前层
  lyr.Editable := true;//可编辑
  pt := copoint.Create;
  mstyle := costyle.Create;
....第一遍点正常，第二边点就开始抱错了，说“指定的名称不唯一（该名称已经为其它的对象所引用）”请弟兄们帮忙

Answer 1

第一次系统已经建立了tempAnimate,第二次当然不能用相同的名称建立了。
解决的办法是：
1.第二次建立时换一个名字；
2.判断已经建立了tempAnimate，就跳过建立这一步，直接使用tempAnimate；
3.删除原来的tempAnimate，再建立。

Answer 2

var
  G : TGUID;
begin
  CreateGUID(G);
  lyr := Map1.Layers.CreateLayer( GUIDToString(G), EmptyParam,1,EmptyParam, EmptyParam);