Hola lo puedes hacer de la misma forma en que vienes trabajando. Algo asi:
Código vb:
Ver original//Convierto a cadena la fecha actual
local StringVar Fecha := ToTExt(CurrentDate,"dd,MM,yyyy");
//Obtengo el # del Dia
local StringVar Dia := Fecha[1 to 2];
//Obtengo el Mes
local stringvar Mes := Fecha [4 to 5];
//Obtengo el año
local StringVar Anio := Fecha[7 to 10];
Saludos!