[[BlueSteel]]

Tambien lo puedes hacer con un metodo más carretero....

que tendria que ser algo así..

Código Delphi [-]
 
Var
    Fecha: String;
    cDia, cMes, cYear : String;
...
 
   Fecha := DateToStr(Date); // Pasamos la fecha ('19/05/2008');
   cDia   := Copy(Fecha,1,2); // obtenemos el 19
   cMes  := Copy(Fecha,4,2); // obtenemos el 05
   cYear := Copy(Fecha,7,4); // obtenemos el 2008

Salu2