[Decoding]

1. Вышли мне пример на почту decoding@narod.ru

2. Мог бы и сам сделать

Код:

 
procedure TForm1.FormCreate(Sender: TObject);
begin
   ComboBox1.Items.Add( DateToStr( Now ) );
   ComboBox1.Items.Add( DateToStr( Now+1 ) );
   ComboBox1.Items.Add( DateToStr( Now+2 ) );
   ComboBox1.ItemIndex := 0;
end;