Проблема с Delphi. Не выполняется условие

Нужно сравнить две дата. Одна системная, вторая считывается из ini файла.

var
dsys: TDate;
dini: string;
begin
IniFile:=TIniFile.Create('C:\01\MyIni.ini'); //Создаём файл конфигурации
dsys := Date(); // текущая дата
dini:=IniFile.ReadString('Other','Write date',''); // Считываем значение даты из ini файла и заносим в переменную
if dsys < dini then
Application.MessageBox('меньше', '', MB_OK)
else
Application.MessageBox('больше', '', MB_OK);
end;