Delphi 2010 access violation

[vasilii95]

Написал модуль для работы с датами. Хотел сделать, чтобы при вводе неправильной даты автоматически происходила её корректировка, но при изменении значений в полях 'число' и 'месяц' вылетает ошибка Access Violation.
Насколько я понял, это как-то связано со строчками

if form1.edit1.Focused=false then exit;

и

if form1.edit2.Focused=false then exit;

Если их убрать, программа ошибок не выдаёт, но работает неправильно. Подскажите, пожалуйста, почему появляется эта ошибка и как её исправить.
Программа написана на Delphi 2010.

[BDA]

В чем выражается неверность работы программы при убирании этих строк?
Вроде поправляет дату без этих строк (ошибка вылезает только когда поле пустое, просто проверять нужно перед преобразованием, что строчка не пуста).

[vasilii95]

Если убрать эти строчки, то перестают правильно работать кнопки + и -(увеличение и убавление числа). То есть, например, месяц = 1, а число =31; при нажатии кнопки + число становится равным 1, а значение месяца не изменяется, хотя, по идее должно измениться на 2.

[BDA]

Думал-думал, из-за чего возникает ошибка, придумал только костыль
Уберите эти строчки с проверкой активности и добавьте по 2 события к едитам (или в событии баттона напишите это):

procedure TForm1.Edit1Enter(Sender: TObject);
begin
 edit1.OnChange:=Edit1Change;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
edit1.OnChange:=nil;
end;

[Stilet]

// вывод
result.Dayy:=Day;
result.Monthh:=Month;
result.Yearr:=year;

Ога, супер. А создавать экземпляр класса TData для Result кто будет?

P.S. Ох как мне твоя стратегия не нравится... Код чреват граблями, как по мне.