[san-46]

Код:

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