急救一菜鸟！

type
  mypro = procedure (k: boolean) of object;
....
  tmyclass = class
  fpro: mypro;
...
  procedure setpro(pro: mypro);
...
  end;
procedure tmyclass.setpro(pro: mypro);
begin
  //怎样判断pro的值是有效的呢？？然后再赋值　fpro := pro;　
end;