Помогите написать код для delphi.

[Николай2001]

Я пытяюсь запустить программу, но он выдает ошибку. Помогите переписать код.
unit Unit64;

interface

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

type
TForm1 = class(TForm)
lbl1: TLabel;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
se1: TSpinEdit;
sev: TSpinEdit;
se2: TSpinEdit;
se3: TSpinEdit;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl7: TLabel;
BQuit: TButton;
BOk: TButton;
RG: TRadioGroup;
edt1: TEdit;
edt3: TEdit;
edt4: TEdit;
edt5: TEdit;
se4: TSpinEdit;
lbl6: TLabel;
edt2: TEdit;
btn3: TButton;
procedure BQuitClick(Sender: TObject);
procedure BOkClick(Sender: TObject);
procedure SpinEdit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit36;

{$R *.dfm}

procedure TForm1.BQuitClick(Sender: TObject);
begin;
close
end;

procedure TForm1.BOkClick(Sender: TObject);
var
volume,volume2,volume3,volume4,volu me5: Integer;
begin;
case RG.ItemIndex of
0: begin;
0.167 * Sqrt(SpinEdit1.Components*SpinEdit2 .Components);
volume :=0.167*Sqrt(SpinEdit1.Components*S pinEdit2.Components);
edt1.Text := volume;
end;
1:begin;
500 + se2 + se3;
volume2 := 500 + se2 + se3;
volume2 := edt3;
end;
2:begin;
edt3 + sev;
volume3 := edt3 + sev;
volume3 := edt4;
end;
3:begin;
360*se4;
volume4:=360*se4;
volume4:=edt5
end;
4:begin;
(edt3/2)*35
volume5:=(edt3/2)*35
volume5:=edt2
end;
end;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
Form2.Show;
end;

end.

[WorldMaster]

И чего за ошибки??

[digitalis]

И что должно быть на выходе?

он выдает ошибку.

он - это кто ?