帮帮我啊 我急死了 [Error] Cuboid.pas(77): Statement expected but 'PROCEDURE' found [Fatal Error] Shape.pas(28): Could not compil

编译出现以下错误：[Error] Cuboid.pas(77): Statement expected but 'PROCEDURE' found
[Fatal Error] Shape.pas(28): Could not compile used unit 'Cuboid.pas'
到底是什么原因啊 我急死了 帮帮我啊Cubiod.pas源程序unit Cuboid;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TCuboidFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    Label7: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Button3: TButton;
    Label8: TLabel;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  CuboidFrm: TCuboidFrm;
implementation{$R *.dfm}procedure TCuboidFrm.Button1Click(Sender: TObject);var   length: Double;
   width: Double;
   height: Double;
   weight: Double;
   density: Double;begin
          length:=StrToFloat(edit1.Text);
          width:=StrToFloat(edit2.Text);
          height:=StrToFloat(edit3.Text);          case ComboBox1.ItemIndex of
          0: density:=7.4;
          1: density:=7.85;
          2: density:=8.5;
          3: density:=2.85
          else density:=7.7;          weight:=length*width*height*density/100000;          edit4.Text:=FloatToStr(weight);
end;procedure TCuboidFrm.Button3Click(Sender: TObject); 这里出错！！！
begin
       CuboidFrm.Hide;end;procedure TCuboidFrm.FormShow(Sender: TObject);
begin
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit4.Text:='';
          edit1.Setfocus;end;procedure TCuboidFrm.Button2Click(Sender: TObject);
begin
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit4.Text:='';
          edit1.Setfocus;end;end.
Shape.pas 源程序unit Shape;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TShapeFrm = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  ShapeFrm: TShapeFrm;implementationuses Cuboid,Square,Cylinder;  这里出错！！！{$R *.dfm}procedure TShapeFrm.Button1Click(Sender: TObject);
begin
      case ComboBox1.ItemIndex of
        0: CuboidFrm.Show;
        1: SquareFrm.Show;
      else  CylinderFrm.Show;end;procedure TShapeFrm.Button2Click(Sender: TObject);
begin
      Application.Terminate;end;end.