formato moneda en excel desde delphi

[LoganFenix]

hola tengo una aplicacion en delphi q consiste en realizar consulta y en base a esa consulta me genera un reporte q es enviado a excel.
mi problema es q con los numeros quiero darles el formato moneda ($456,1254.357)y no de numero(45612543.57) parte de mi codigo para hacer el formato es
vCell := Hoja.Range['A'+inttostr(ren)+':' + CHAR(num_columna)+ inttostr(ren)];
vCell.Borders.LineStyle:= 1;
vcell.Interior.ColorIndex := 15;
vcell.HorizontalAlignment := 3;
vcell.VerticalAlignment := -4160;
vcell.WrapText := true ;
vcell.Orientation := 0;
vcell.AddIndent := False ;
vcell.IndentLevel := 0 ;
vcell.ShrinkToFit := False;
vcell.ReadingOrder := -5002;
vcell.MergeCells := False;
vCell.Font.Name:='Arial';
vCell.Font.Size:=10;
vCell.font.bold:=true;
vCell.Value :=XArr;
ren := 10;
vCell := Hoja.Range['A'+inttostr(ren)+':' + CHAR(num_columna)+ inttostr(ren)];
vCell.Borders.LineStyle:= 0; //sin borde
vcell.Interior.ColorIndex := -4142;//sin relleno
vcell.HorizontalAlignment := 1; //1 es derecha 3 es centrado 2 es izquierda
vcell.VerticalAlignment := -4160;
vcell.WrapText := true ;//permite escribir mas de una linea(la celda)
vcell.Orientation := 0;
vcell.AddIndent := False ;
vcell.IndentLevel := 0 ;
vcell.ShrinkToFit := False;
vcell.ReadingOrder := -5002;
vcell.MergeCells := False;
vCell.Font.Name:='Arial';
vCell.Font.Size:=10;
//vCell.
vCell.font.bold:=false; //sin negrita
vCell.Value :=XArr; //CONTIENE TODOS LOS VALORES DE LA LISTA


donde la variable ren=9 se refiere al renglon 9 dar ese formato y ren=10 otro formato