InstanceSize用法

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
  Item: TListItem;
  Size: integer;
begin
  ListView1.Clear;
  for i := 0 to ComponentCount - 1 do begin
    Item := ListView1.Items.Add;
    Item.Caption := Components[i].ClassName;
    Item.SubItems.Add(Components[i].Name);
    Size := Components[i].InstanceSize;
    Item.SubItems.Add(IntToStr(Size));
  end;
end;