先定义一个结构：

TUserInfo = record
  UserID: Integer; // 用户编号
  UserName: string; // 用户名
end;

然后编写如下代码：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  User.UserName := StringOfChar('A', RandomRange(16*1024, 64*1024));
  FillChar(User, SizeOf(User), 0);
end;

然后开启设置Timer间隔为20ms, 开启任务管理器就会发现内存暴涨，很显然结构中UserName使用的内存未被正确释放。

改成下面的代码就不会出现上述情况：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  User.UserName := StringOfChar('A', RandomRange(16*1024, 64*1024));
  User.UserName := '';
end;

http://blog.csdn.net/missmecn/article/details/7097660