resource Tform1 not found

program Project14;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Label101: TLabel;
    Label102: TLabel;
    Label103: TLabel;
    Button1: TButton;
    Label104: TLabel;
    Label105: TLabel;
    Label106: TLabel;
    Label107: TLabel;
    Label108: TLabel;
    Label109: TLabel;
    Label120: TLabel;
    Label125: TLabel;
    Label124: TLabel;
    Label123: TLabel;
    Label122: TLabel;
    Label121: TLabel;
    Edit1a: TEdit;
    Edit1b: TEdit;
    Edit1c: TEdit;
    Edit2a: TEdit;
    Edit9c: TEdit;
    Edit8c: TEdit;
    Edit7c: TEdit;
    Edit6c: TEdit;
    Edit5c: TEdit;
    Edit4c: TEdit;
    Edit3c: TEdit;
    Edit2c: TEdit;
    Edit12a: TEdit;
    Edit11a: TEdit;
    Edit10a: TEdit;
    Edit9a: TEdit;
    Edit8a: TEdit;
    Edit7a: TEdit;
    Edit6a: TEdit;
    Edit5a: TEdit;
    Edit4a: TEdit;
    Edit3a: TEdit;
    Edit7b: TEdit;
    Edit6b: TEdit;
    Edit5b: TEdit;
    Edit2b: TEdit;
    Edit4b: TEdit;
    Edit3b: TEdit;
    Edit12b: TEdit;
    Edit12c: TEdit;
    Edit11c: TEdit;
    Edit10c: TEdit;
    Edit11b: TEdit;
    Edit10b: TEdit;
    Edit9b: TEdit;
    Edit8b: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label4: TLabel;
    Label12: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  arrayThing:array[1..12] of single;
  arrayNightwork:array[1..12] of single;
  arrayWeekendwork:array[1..12] of single;
  arrayResult:array[0..12] of single;
  arrayout:array[1..12] of single;
  monthflag:integer;
  flag:integer;
  i:integer;implementationprocedure TForm1.Button1Click(Sender: TObject);
begin
  arrayThing[1]:=strtofloat(edit1a.text);
  arrayNightwork[1]:=strtofloat(edit1b.text);
  arrayWeekendwork[1]:=strtofloat(edit1c.text);
  arrayThing[2]:=strtofloat(edit2a.text);
  arrayNightwork[2]:=strtofloat(edit2b.text);
  arrayWeekendwork[2]:=strtofloat(edit2c.text);
  arrayThing[3]:=strtofloat(edit3a.text);
  arrayNightwork[3]:=strtofloat(edit3b.text);
  arrayWeekendwork[3]:=strtofloat(edit3c.text);
  arrayThing[4]:=strtofloat(edit4a.text);
  arrayNightwork[4]:=strtofloat(edit4b.text);
  arrayWeekendwork[4]:=strtofloat(edit4c.text);
  arrayThing[5]:=strtofloat(edit5a.text);
  arrayNightwork[5]:=strtofloat(edit5b.text);
  arrayWeekendwork[5]:=strtofloat(edit5c.text);
  arrayThing[6]:=strtofloat(edit6a.text);
  arrayNightwork[6]:=strtofloat(edit6b.text);
  arrayWeekendwork[6]:=strtofloat(edit6c.text);
  arrayThing[7]:=strtofloat(edit7a.text);
  arrayNightwork[7]:=strtofloat(edit7b.text);
  arrayWeekendwork[7]:=strtofloat(edit7c.text);
  arrayThing[8]:=strtofloat(edit8a.text);
  arrayNightwork[8]:=strtofloat(edit8b.text);
  arrayWeekendwork[8]:=strtofloat(edit8c.text);
  arrayThing[9]:=strtofloat(edit9a.text);
  arrayNightwork[9]:=strtofloat(edit9b.text);
  arrayWeekendwork[9]:=strtofloat(edit9c.text);
  arrayThing[10]:=strtofloat(edit10a.text);
  arrayNightwork[10]:=strtofloat(edit10b.text);
  arrayWeekendwork[10]:=strtofloat(edit10c.text);
  arrayThing[11]:=strtofloat(edit11a.text);
  arrayNightwork[11]:=strtofloat(edit11b.text);
  arrayWeekendwork[11]:=strtofloat(edit11c.text);
  arrayThing[12]:=strtofloat(edit12a.text);
  arrayNightwork[12]:=strtofloat(edit12b.text);
  arrayWeekendwork[12]:=strtofloat(edit12c.text);
  flag:=1;
  arrayresult[0]:=0;
  i:=0;
  for monthflag:=1 to 12 do
  begin
    if i>3 then
    begin
      i:=0;
      arrayresult[flag-1]:=0;
    end;
    arrayresult[flag]:=arrayresult[flag-1]
                      +arraything[flag]
                      -arrayweekendwork[flag];
    if  arrayresult[flag]>0 then
        arrayresult[flag]:=arrayresult[flag]-arrayNightwork[flag];
    if  arrayresult[flag]<0 then
      i:=i+1
      else
      i:=0;
    arrayout[flag]:=arrayresult[flag];
    flag:=flag+1;
  end;
  label1.Caption:=floattostr(arrayout[1]);
  label2.Caption:=floattostr(arrayout[2]);
  label3.Caption:=floattostr(arrayout[3]);
  label4.Caption:=floattostr(arrayout[4]);
  label5.Caption:=floattostr(arrayout[5]);
  label6.Caption:=floattostr(arrayout[6]);
  label7.Caption:=floattostr(arrayout[7]);
  label8.Caption:=floattostr(arrayout[8]);
  label9.Caption:=floattostr(arrayout[9]);
  label10.Caption:=floattostr(arrayout[10]);
  label11.Caption:=floattostr(arrayout[11]);
  label11.Caption:=floattostr(arrayout[12]);
end;end.这个是计算事假时间的，根据EDIT控件的值来计算事假时间，最后显示在LABEL上。
请高手指教，出现的错误怎么解决。对比了其他程序，感觉结构没有错误，为什么说Tfrom1找不到。