Variable de Tipo

[ruedabeat2003]

var  // Inicia Procedure crea_xdocto
   qAux:TQuery;
   cadenaX,inicio : widestring;
   el_identificador : TipoIdentificador;
   la_fecha:TXSDate;
begin
  la_fecha := TXSDate.Create;
...
   la_fecha.AsDate := qAux.fieldByName('fecha_expedicion').AsDateTime;

   ShowMessage(Format('%d/%d/%d', [la_fecha.Day, la_fecha.Month, la_fecha.Year]));

CORRECTO!!!! Me desplego el valor correcto: 21/10/2011. Excelente.

La verdad que el foro me ha sacado de grandes problemas y dudas, mucho mejor que acudir con mis compañeros, que todo se lo guardan. Muchas gracias y saludos.

Por hoy me voy tranquilo a casa, ya mañana los sigo bombardeando con dudas.