Присваивание значения через промежуток времени

[Epc]

скрин...........

[Mad_Cat]

скрин...........

А

type
  TMonths = record
    DaysCount: Integer;
    Name: string[8];
  end;

кто будет переносить то?

[Epc]

про ошибку точно, не описана в типе, только вставляю эту запись, не нравится TMonths = record

[Serge_Bliznykov]

значит, не туда вставляете.
Вставьте приведённый код ДО описания формы..
ну у Вас есть такое:

interface

uses
  Windows, Messages, SysUtils .....

<ВСТАВЛЯТЬ СЮДА!>
type
  TFormВашаФорма = class(TForm)

[Roof]

p.s. а я бы ещё добавил кнопку Пауза/Продолжить
и ещё - прямо на форме задавал - сколько секунд - один день - чтобы можно было ускорить или замедлить ход имитационного времени... Это всё добавить совсем не сложно...

2 Serge_Bliznykov Да несложно, конечно. Но Epc пока и не просила этого, да и запутать девушку дополнительными агрегатами не хочется

type
  TMonths = record
    DaysCount: Integer;
    Name: string[8];
  end;

2 Epc - это надо вставлять после объявления подключаемых модулей, как показали выше и вставлять именно в том unit, в котором используешь массив DaysCountMonths

[Epc]

Ошибку выдает

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

type
  TMonths = record
    DaysCount: Integer;
    Name: string[8];
  end;
type
     TForm1 = class(TForm)
    LabelDate: TLabel;
    ButShowWindow: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure ButShowWindowClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    Day, Month, Year: Integer;
  const
    DaysCountMonths: array[1..12] of TMonths =
    ((DaysCount: 31; Name: 'ßíâàðü'),
      (DaysCount: 28; Name: 'Ôåâðàëü'),
      (DaysCount: 31; Name: 'Ìàðò'), (DaysCount: 30; Name: 'Àïðåëü'),
      (DaysCount: 31; Name: 'Ìàé'), (DaysCount: 30; Name: 'Èþíü'),
      (DaysCount: 31; Name: 'Èþëü'), (DaysCount: 31; Name: 'Àâãóñò'),
      (DaysCount: 30; Name: 'Ñåíòÿáðü'),
      (DaysCount: 31; Name: 'Îêòÿáðü'),
      (DaysCount: 30; Name: 'Íîÿáðü'),
      (DaysCount: 31; Name: 'Äåêàáðü')
      );

[Serge_Bliznykov]

EPC, какую ошибку выдаёт?

надеюсь, что, что было в описании формы после private Вы догадались оставить?
там должно быть, как минимум end;
как максимум, секция public ....

... ваш код....
  public
    { Public declarations }
  end;

[Epc]

unit Unit1;

interface

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

type
  TMonths = record
    DaysCount: Integer;
    Name: string[8];
  end;
type
     TForm1 = class(TForm)
    LabelDate: TLabel;
    ButShowWindow: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure ButShowWindowClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    Day, Month, Year: Integer;
  const
    DaysCountMonths: array[1..12] of TMonths =
    ((DaysCount: 31; Name: 'Январь'),
      (DaysCount: 28; Name: 'Февраль'),
      (DaysCount: 31; Name: 'Март'), (DaysCount: 30; Name: 'Апрель'),
      (DaysCount: 31; Name: 'Май'), (DaysCount: 30; Name: 'Июнь'),
      (DaysCount: 31; Name: 'Июль'), (DaysCount: 31; Name: 'Август'),
      (DaysCount: 30; Name: 'Сентябрь'),
      (DaysCount: 31; Name: 'Октябрь'),
      (DaysCount: 30; Name: 'Ноябрь'),
      (DaysCount: 31; Name: 'Декабрь')
      );
    { DaysCountMonths: array[1..12] of Integer =
       (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);  }

       { Private declarations }
    public

    Check: Boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.ButShowWindowClick(Sender: TObject);
begin
  Form2.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Check := False;
  Year := 2010;
  Month := 1;
  Day := 1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Month >= 12 then
  begin
    Month := 1;
    Inc(Year);
  end;

  if Day >= DaysCountMonths[Month].DaysCount then
  begin
    Day := 1;
    Inc(Month);
    Check := False;
    Form2.ButGenerate.Enabled := True;
  end
  else
    Inc(Day);

  LabelDate.Caption := 'День ' + IntToStr(Day) + ' Месяц ' +
    DaysCountMonths[Month].Name + ' Год ' + IntToStr(Year);

end;

end.

[Serge_Bliznykov]

Epc, ну и ?!
Приведённый Вами код нормально компилируется!
(ну, мне, конечно, пришлось выкинуть всё, что касается Unit2
и, соответственно, Form2.ShowModal; и Form2.ButGenerate.Enabled := True;
потому что у меня нет модуля Unit2 - но у Вас же он есть?...)

а в остальном, прекрасная маркиза, всё хорошо, всё хорошо!

[Roof]

Epc - когда выдает ошибку - пиши в какой строке и какую ошибку. Нну или скрин. Думаю, разберемся с этими ошибками.