var
Y,M,D,Ydb,Mdb,Ddb: Word;
FechaDB: TDate; // tambien la he declarado como TDateTime;
FechaDB:=-1000000;
ADOQuery2.Active:= false;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add ('SELECT Fecha, Monto, NumeroSobre FROM tabladatosentrada
WHERE varios = :var_sol ORDER BY Fecha DESC ');
ADOQuery2.Parameters.ParamByName('var_sol').Value := TLabelSol.Caption;
*** FechaDB:= ADOQuery2.FieldByName('Fecha').AsDateTime;
Decodedate(FechaDB,Ydb,Mdb,Ddb);
Showmessage('el año es' +IntToStr(Ydb));
Showmessage('el mes es' +IntToStr(Mdb));
Showmessage('el dia es' +IntToStr(Ddb));
Decodedate(DateTimePicker1.Date,Y,M,D);
ADOQuery2.Active:=true;
ADOQuery2.ExecSQL;