Data maior que a atual

Ola...estou fazendo uma validação da seguinte forma: preciso verificar se a data que esta sendo cadastrada não é maior ou igual a atual.

pois bem, eu fiz a verificação assim:

if (DBEdit9.Text > DateToStr(date)) or (DBEdit9.Text = DateToStr(date)) then

begin

 MessageDLG('Data maior ou igual a atual!',mtInformation,[mbok],0);

 end

Porém se o dia for maior que o atual e o mes ou ano não, ele ja diz que a data é maior que a atual.

o que tenho que fazer para ficar correto?