[Gips]

Доброго времени суток опять обращаюсь за помощью никто не подскажет как для элемента DateTimePicker задавть программно дату, т.е. при нажатии кнопки или еще чего нибудь я хочу чтобы в DateTimePicker выставилась конкретная дата

[san-46]

Код:

procedure TForm1.Button4Click(Sender: TObject);
begin
//"конкретная дата"
  DateTimePicker1.Date := StrToDate('21.11.2008');
//текущая дата
  DateTimePicker1.Date := Date;
end;