type
  TWriteProc=procedure of Object;
var
  WriteProc:TWriteProc;

....
  TMethod(WriteProc).Code:=@TGrand.Write;
  TMethod(WriteProc).Data:=Self;
  WriteProc;