记录类型中String的释放

String能自动释放，在进行内存拷贝时需要进行手动释放。可以直接调用Finalize手工释放

如：TGraphicHideTab 记录中声明的Caption：string

TGraphicHideTab = record  
  Image:Integer;  
  Data:Integer;  
  Size:Integer;       /// 绘制时使用的尺寸  
  Caption:string;     /// <--- 记录中有String  
end;  

直接内存处理的时候String不会自动处理计数，需要手工处理String。

var   
  FItems:array of TGraphicHideTab;  
  FCount:integer;  
  
procedure DeleteItem(AIndex: Integer);  
begin  
  ///   
  ///  使用内存移动的时候String计数不会改变，因此需要手工处理String的计数  
  ///  
  if (AIndex >= 0) and (AIndex < FCount) then  
  begin  
    Finalize(FItems[AIndex]);   // <-- 手工释放Record中的String  
    if AIndex < FCount - 1 then  
      Move(FItems[AIndex + 1], FItems[AIndex], sizeof(TGraphicHideTab) * (FCount - AIndex - 1));  
    dec(FCount);  
  end;  
end;