Как запретить вводить в DateEdit дату позже сегодняшней?

procedure TForm1.Button1Click(Sender: TObject);
begin
      {if (edit1.Text = '') and (edit2.text = '') and (edit3.text = '') then Label6.caption:='Отсутствует Ф.И.О'
    else if (edit1.text = '') and (edit2.text = '') then Label6.caption:='Отсутствует Фамилия и Имя'
    else if (edit1.text = '') and (edit3.text = '') then Label6.caption:='Отсутствует Фамилия и Отчество'
    else if (edit2.text = '') and (edit3.text = '') then Label6.caption:='Отсутствует Имя и Отчество'
    else if edit1.text = '' then Label6.Caption:='Отсутствует Фамилия'
    else if edit2.text = '' then Label6.caption:='Отсутствует Имя'
    else if edit3.text = '' then Label6.Caption:='Отсутствует Отчество'
    else if DateEdit1.text = '' then Label6.Caption:='Дата рождения не может быть больше текущей даты' }
 
  if DateEdit1.Text = ''
    then begin
           Label6.Caption:= 'Дата не введена';
           exit;
         end;
 
  if DateEdit1.Date > Date()
    then Label6.Caption:= 'Дата рождения не может быть больше текущей даты'
    else Label6.Caption:= 'Всё ОК';
end;