比如:动态创建Var A:TForm;A:=TForm.Create(Self);动态删除A.Free;
varstr:pchar;GetMem(str,256);//分配空间freemem(str) //释放空间