Automatizacion de word (generar documentos)

[alt126]

Hola de nuevo...tengo un problema a la hora de cambiar el color del texto cuando se inserta en word. El codigo es el siguiente:

  //VARIABLES
  
  Variant WordApp, WordDocs, WordDoc;
  
  //ABRIR UN DOCUMENTO EN BLANCO
  
  WordApp=Variant::CreateObject("Word.Application");
  WordApp.OlePropertySet("Visible", true); WordDocs=WordApp.OlePropertyGet("Documents");
  AnsiString szTxtFile=ExtractFilePath(Application->ExeName)+"\prueba.doc";
  WordDoc=WordDocs.OleFunction("Add");
  
  //INSERTAR TEXTO
  
  Variant Selection = WordApp.OlePropertyGet("Selection");
  Variant Font = Selection.OlePropertyGet("Font");
  Font.OlePropertySet("Name","Arial");
  Font.OlePropertySet("Bold","1");
  Font.OlePropertySet("Size","40");
  Font.OlePropertySet("Color",Edit1->Text);
  Selection.OleProcedure("TypeText", WideString("BEEEEEEEETIS"));
  Selection.OleProcedure("InsertDateTime", "dddd, dd MMMM yyyy", False);
  
  //AHI ME PETA A LA HORA DE METER EL COLOR...
  // SI PONGO wdColorRed,clRed,Red,ffffff,RGB(255,255,255)...TODO ESO PETA.
  //PERO SI PONGO UN NUMERO DE 0 HASTA 999999, FUNCIONA Y ME
  //DA COLORES.

LA REGLA DE COLORES ES LA SIGUIENTE:

0 - NEGRO
100 - MARRONCILLO
255 - ROJO
252525 - VERDOSILLO
505050 - AMARILLENTO


ALGUIEN PUEDE DECIRME ALGUNA REGLA LOGICA????

GRACIAS

Un saludo

Antonio