如何判断一个指针为有效指针

Question

如已知指针的类名,可以用下面办法判断
不知道 if A is TLabel then //有效try
  stemp:=A.Caption;
except
  //无效指针
end;

Answer 1

不如Free把它赋给nil呵呵。
var
  lblNew: TLabel;  lblNew := TLabel.Create(Self);
  lblNew.Parent := Self;
  lblNew.Caption := 'Haha;
----------------------------------------------
  lblNew.Free;
  lblNew := nil;
----------------------------------------------
  if Assigned(lblNew) then
    MessageBox(Handle, '有效的值', '提示', 0);

Answer 2

各位老兄，现在的问题就是要解决这个问题，有一个空件包中存在该类型的Bug 我需要修改，现在怎样解决问题，不是让你们提无关紧要的意见的。