Сравнить 2 даты

[=PaLeTiZaToR=]

Помогите пожалуйста сравнить 2 даты.
пробывал так...

var
D1, D2,t1,t2 : TDateTime;
t1:=strtotime(reg.match[2]); //Получаю с переменной время
t2:= time; //Получаю текущее время
D1 := Now; //Получаю текущую дату
D2 :=strtodate(reg.match[1]); //Получаю с переменной дату
if datetostr(D1) > datetostr(D2) then
begin
ляляля
end

if datetostr(D1) = datetostr(D2) then
begin
if t1<=t2 then
begin
ляляля
end


Дело в том , что если сегодня (допустим) 20.11.12 а в переменной дата 20.10.12 то сравнивает нормально .. то же самое если дата выше .. но если сейчас 20.11.12 а в переменной 20.10.13, то он показывает что сейчас больше чем в переменной... хотя там 13 год.

[metraz]

if datetostr(D1) > datetostr(D2) then begin ляляля end
if d1>d2 then
begin
ляля
end;