[El_Chava]

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;// end del try
   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.