Al fin logre dar con la respuesta del problema al darme cuenta de lo siguiente: lo que hice fue primeramente ver que valor me esta dando el TDateEdit si ponia los valores de esta manera '2_/2_/____' y en el evento onexit puse el siguiente codigo "dia:=formatDateTime('dd',fechaentrega.Date);mes:=formatDateTime('mm',fechaentrega.Date);anio:=forma tDateTime('yyyy',fechaentrega.Date); " asi me di cuenta que las variables guardaban dia = 30 mes = 12 anio=1899 investigando resulta ser que es la manera en que tDateEdit lo toma como una fecha NULA 30/12/1899 asi que lo que hice fue poner el siguiente codigo:
Código Delphi
[-]procedure TFrmAgregarDocumento.fechaentregaExit(Sender: TObject);
var
MyDateTimeVar: TDate;
ex:integer;
begin
ex:=0;
try
MyDateTimeVar:= StrToDate(fechaentrega.Text);
except
Application.MessageBox('La fecha de entrega no es valida, favor de verificar','Error',mb_iconstop);
ex:=1;
end; case ex of
0: if FormatDateTime('DD/MM/YYYY',fechaentrega.Date) = '30/12/1899' then
begin
Application.MessageBox('La fecha de entrega no es valida, favor de verificar','Error',mb_iconstop);
end;
end;
end;
Asi de esta manera logré que me valide si tengo una fecha valida. Gracias por su ayuda y sugerencias.