释放内存

我读取操作系统名称“microsft windows xp professnal” 使用以下代码
当该代码运行后，好了我3兆的内存
请问当我得到我想要的名称以后，怎样释放掉该段代码耗的这些内存
procedure TForm1.FormCreate(Sender: TObject);
var
  Locator: OleVariant;
  Service: OleVariant;
  ObjectSet: OleVariant;
  SObject: OleVariant;
  Enum: IEnumVariant;
  Value: Cardinal;
begin
  CreateOleObject('WbemScripting.SWbemLocator');
  Service := Locator.ConnectServer();
  ObjectSet := Service.ExecQuery('Select * From Win32_OperatingSystem');
  Enum:= IUnknown(ObjectSet._NewEnum) as IEnumVariant;
  while (Enum.Next(1, SObject, Value)) = S_OK do
  begin
  form1.Caption:=  SObject.caption;
  end;
end;