Formato para impresion de cantidades numericas

[Ricsato]

Hola a todos en este foro, estoy imprimiendo una cantidad numerica y no se como hacerle para que me puedan aparecer los separadores de miles en la impresion, lo hago de la siguiente forma:

Writeln(vlpLst,' '+ Format('%*.*f', [7,2,CECompra.Value])

y esto me da como resultado: 12345.00 y necesito un separador de miles para que aparezca de la siguiente manera: 12,345.00.

CECompra es un TcurrencyEdit

Si alguien sabe como, me hara un enorme favor.

Saludos desde Mexicali, B.C., MExico
Ricks