---

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, GlobDat;

type
  TForm2 = class(TForm)
    SpinEdit1: TSpinEdit;   // День
    SpinEdit2: TSpinEdit;   // Год
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;   // Месяц
    Label3: TLabel;
    Button1: TButton;       // Закрыть

    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  SpinEdit1.MinValue := 1;
  SpinEdit1.MaxValue := 31;
  SpinEdit1.Value := 15;

  SpinEdit2.MinValue := 1900;
  SpinEdit2.MaxValue := 2000;
  SpinEdit2.Value := 1970;

  ComboBox1.Items.Clear;
  ComboBox1.Items.Add('январь');
  ComboBox1.Items.Add('февраль');
  ComboBox1.Items.Add('март');
  ComboBox1.Items.Add('апрель');
  ComboBox1.Items.Add('май');
  ComboBox1.Items.Add('июнь');
  ComboBox1.Items.Add('июль');
  ComboBox1.Items.Add('август');
  ComboBox1.Items.Add('сентябрь');
  ComboBox1.Items.Add('октябрь');
  ComboBox1.Items.Add('ноябрь');
  ComboBox1.Items.Add('декабрь');

  ComboBox1.ItemIndex := 0;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  S := IntToStr(SpinEdit1.Value) + '.' +
       ComboBox1.Text + '.' +
       IntToStr(SpinEdit2.Value);

  Close;
end;

end.