>>217

type PTHoge = ^THoge;
THogeCallBack=Procedure ( This:PTHoge);
　 THoge =record
　 foo:Integer;
　 CallBack:THogeCallBack;
　end;
とやれば確かに定義出来るんだけど・・・これで我慢するしかないのかな