怎样取一个指针指向内容的大小

Question

//
var
  p:Pointer;//无类型指针，
begin
  GetMem(p,100);//既然有了100还要下面的吗？
  ShowMessage(IntToStr(SizeOf(p1^)));//SizeOf()的参数应该是类型，或者是某种类型的变量
  FreeMem(100);//好像应该是FreeMem(100);
end;

Answer 1

这是个演示的例子，我需要的目的是我有一个函数，传入的是指针类型，类型不定，我要根据它的大小往里面改一些数据，由于类型不定，所以要得到它的大小以保证指针访问没有越界