Pasar salidas delphi a xml

[friendspark]

Hola a todos, mi problema es que no se pasar las salidas de mi programa en delphi en modo consola, a xml.

ejem:<Datos hardware>
<datos cpu>....


ejemplo de lo que estoy haciendo:

Código Delphi [-]
 
reg:= TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if not Reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0', FALSE)  then
    writeln('Error opening key')
    else
    begin
    writeln(#10#13,'Datos Hardware:');
    Writeln('---------------',#10#13);
    g:=reg.ReadString('ProcessorNameString');
    g:=Trim(g);
    writeln('Procesador.................',g);
    g:=reg.ReadString('Identifier');
    g:=Trim(g);
    writeln('Identificador..............',g);
    g:=reg.ReadString('VendorIdentifier');
    g:=Trim(g);
    writeln('Fabricante.................',g);
    reg.CloseKey;

  end;

Gracias