如何判断类的实例是否存在?

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  Str:String;
begin    
  Str:='Frm2';                
//在此判断是否存在类TFRM2的实例的名字为Str;
end;HELP!!

Answer 1

例如
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Bit: TBitBtn;
  S: string;
begin
  Bit := TBitBtn.Create(Self); //这里要一致
  S := 'BitBtn1';
  try
    Bit.Name := S;
  except
    on E: Exception do
    begin
      if Pos('A component named ' + S + ' already exists', E.Message) > 0 then
      begin
        ShowMessage('已经存在');
      end;    end;
  end;
end;

Answer 2

try
   Tmemo(findcomment('memo1)).lines.add('dd');
except
  //已经存在
end;

Answer 3

MD，难道是昨天没睡好，今天怎么老写错啊。。上面写错了，应该是不存在
try
   Tmemo(findcomment('memo1)).lines.add('dd');
except
  //不存在
end;

Answer 4

Assigned(对象)配合释放必须为
对象.free;
对象=nil;

Answer 5

IF Application.FindComponent('名字')=nil then //不存在

Answer 6

Assigned(对象)配合释放必须为
FreeAndNil(对象);

Answer 7

wudi_1982(︻┳═一) 的方法简便得要命,而且又达到预期效果,特此号召大家都使用她.怎么那么多人用ASSIGNED()?那参数是不能用STRING类型的啊.
Application.FindComponent('名字')=nil then //不存在(好像达不到预期效果啊)