[Максон]

Решил сделать по-другому и вот что получилось:

Когда нажимаю выбор даты на DateTimePicker

Код:

Procedure TForm1.DateTimePickerChange(Sender:TObject);
const Mes:array[1..12] of string=('января','февраля','марта','апреля',
'мая','июня','июля','августа','сентября','октября','ноября','декабря');
var
Present: TDate;      
 Year, Month, Day : Word; 
begin
Present:= Date; 
 DecodeDate(Present, Year, Month, Day);
 Edit1.Text := IntToStr(Day)+ ' ' +
   Mes[Month] + ' '+ IntToStr(Year)+
   ' года, ';
end;

И какую бы я дату не выбрал в Edit1 всегда отображается текущая дата.
Почему так происходит?