Генерация даты в заданном промежутке

  var dt1, dt2, dtRandom : TDateTime;
    Diapazon : integer;
  begin
    Randomize;
    dt1 := EncodeDate(2006, 01, 02);
    dt2 := EncodeDate(2009, 01, 01);
    Diapazon := trunc(dt2) – trunc(dt1) + 1;
    dtRandom := dt1 + random(Diapazon);
    button1.Caption := DateToStr(dtRandom);