记录类型中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 >= ) and (AIndex < FCount) then
  begin
    Finalize(FItems[AIndex]);   // <-- 手工释放Record中的String
    if AIndex < FCount -  then
      Move(FItems[AIndex + ], FItems[AIndex], sizeof(TGraphicHideTab) * (FCount - AIndex - ));
    dec(FCount);
  end;
end;