[Eidosqj]

Задача решена, всем спасибо
Код

Код:

procedure TForm7.Button1Click(Sender: TObject);
begin
  {Генерируем новое значение и делаем кнопку неактивной}
  randomize;
  kolBezrab:=random(20);
  Edit1.Text:=FloatToStr(kolBezrab);
  Button1.Enabled:=false;
end; 



procedure TForm1.FormCreate(Sender: TObject);
begin
 {исходные данные по сырью}


  Day:=1; Mes:=1; God:=2009;

end;

procedure TForm1.FormShow(Sender: TObject);
begin


  Panel1.Caption:=IntToStr(Day);

  if Mes=1 then Panel2.Caption:='январь';
  if Mes=2 then Panel2.Caption:='февраль';
  if Mes=3 then Panel2.Caption:='март';
  if Mes=4 then Panel2.Caption:='апрель';
  if Mes=5 then Panel2.Caption:='май';
  if Mes=6 then Panel2.Caption:='июнь';
  if Mes=7 then Panel2.Caption:='июль';
  if Mes=8 then Panel2.Caption:='август';
  if Mes=9 then Panel2.Caption:='сентябрь';
  if Mes=10 then Panel2.Caption:='октябрь';
  if Mes=11 then Panel2.Caption:='ноябрь';
  if Mes=12 then Panel2.Caption:='декабрь';

  Panel3.Caption:=IntToStr(God);
 end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Day:=0;
  Timer1.Enabled:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Day:=1; Mes:=1; God:=2009;
   Panel1.Caption:=IntToStr(Day);
   Panel2.Caption:='январь'; 
   Panel3.Caption:=IntToStr(God);
end;

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

procedure TForm1.N10Click(Sender: TObject);
begin
Form5.ShowModal;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
 Form7.ShowModal;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
 Form6.ShowModal;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
//процедуру с события кнопки BitBtn1 перенес в таймер
  Day:=Day+1;
  {Если в отсчете прошел месяц то меняем значения и ставим кнопку на форме 7 активной}
  if Mes=1 then begin if Day=32 then begin Day:=1; Mes:=2; Form7.button1.Enabled:=true;end;end;
  if Mes=2 then begin if Day=29 then begin Day:=1; Mes:=3;Form7.button1.Enabled:=true;end;end;
  if Mes=3 then begin if Day=32 then begin Day:=1; Mes:=4;Form7.button1.Enabled:=true;end;end;
  if Mes=4 then begin if Day=31 then begin Day:=1; Mes:=5;Form7.button1.Enabled:=true;end;end;
  if Mes=5 then begin if Day=32 then begin Day:=1; Mes:=6;Form7.button1.Enabled:=true;end;end;
  if Mes=6 then begin if Day=31 then begin Day:=1; Mes:=7;Form7.button1.Enabled:=true;end;end;
  if Mes=7 then begin if Day=32 then begin Day:=1; Mes:=8;Form7.button1.Enabled:=true;end;end;
  if Mes=8 then begin if Day=32 then begin Day:=1; Mes:=9;Form7.button1.Enabled:=true;end;end;
  if Mes=9 then begin if Day=31 then begin Day:=1; Mes:=10;Form7.button1.Enabled:=true;end;end;
  if Mes=10 then begin if Day=32 then begin Day:=1; Mes:=11;Form7.button1.Enabled:=true;end;end;
  if Mes=11 then begin if Day=31 then begin Day:=1; Mes:=12;Form7.button1.Enabled:=true;end;end;
  if Mes=12 then begin if Day=32 then begin Day:=1; Mes:=1; God:=God+1; Form7.button1.Enabled:=true;end;end;

  Panel1.Caption:=IntToStr(Day);

  if Mes=1 then Panel2.Caption:='январь';
  if Mes=2 then Panel2.Caption:='февраль';
  if Mes=3 then Panel2.Caption:='март';
  if Mes=4 then Panel2.Caption:='апрель';
  if Mes=5 then Panel2.Caption:='май';
  if Mes=6 then Panel2.Caption:='июнь';
  if Mes=7 then Panel2.Caption:='июль';
  if Mes=8 then Panel2.Caption:='август';
  if Mes=9 then Panel2.Caption:='сентябрь';
  if Mes=10 then Panel2.Caption:='октябрь';
  if Mes=11 then Panel2.Caption:='ноябрь';
  if Mes=12 then Panel2.Caption:='декабрь';

  Panel3.Caption:=IntToStr(God);
  if God>=2070 then Timer1.Enabled:=false;

end;

end.

Спасибо, за помощь. Тему можно закрывать.