[gonza_619]

buenisimo ya lo solucione

procedure TForm4.DateTimePicker1CloseUp(Sender: TObject);
var dia,mes,ano:tdatetime;
begin
fecha:=datetimepicker1.date;
dia:=dayof(fecha);
mes:=monthof(fecha);
ano:=yearof(fecha);
if (dia<=10) or (dia>25)then
begin
showmessage('hola');

bien ahora al cumplirse esta condicion en u tedit, se almacene la fecha con el dia 10 del mes actual y año actual, entonces probe

if (dia<=10) or (dia>25)then
begin
showmessage('hola');
edit10.Text:='10/mes/ano';

pero me sale tal como esta entre comillas. cuando tendria que salir 10/11/2010, como podria hacer?

bueno lo probe y me sale 31/12/1989, no entiedo porq si en las variables asigne el mes y año actual

edit10.Text:=datetostr(10/mes/ano)