Как справиться с ошибками?

[RussianGuy]

Решил создать одну из первых программ на Delphi, и, в который раз, он ругается...
Код:

unit vg;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
a,c,b:Integer;
Form1: TForm1;
begin
procedure TForm1.Edit1Change(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=IntToStr(c);
end;
c:=b-a;
implementation

{$R *.dfm}

procedure TForm1.Edit2Change(Sender: TObject);
begin
b:=StrToInt(Edit2.Text);
end;

end.

Ошибки:
Build
[Error] vg.pas(27): Statements not allowed in interface part
[Error] vg.pas(28): Statement expected but 'PROCEDURE' found
[Error] vg.pas(29): Identifier redeclared: 'TForm1.Edit1Change'
[Error] vg.pas(30): Undeclared identifier: 'Edit1'
[Error] vg.pas(31): Statement expected, but expression of type 'Text' found
[Error] vg.pas(34): Identifier redeclared: 'TForm1.Button1Click'
[Error] vg.pas(35): Undeclared identifier: 'Label1'
[Error] vg.pas(37): Declaration expected but identifier 'c' found
[Error] vg.pas(15): Unsatisfied forward or external declaration: 'TForm1.Button1Click'
[Error] vg.pas(16): Unsatisfied forward or external declaration: 'TForm1.Edit1Change'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'vg.pas'
Что тут не так? Кто-нибудь, исправьте пожалуйста...

[disbnt]

1. нужно удалить одну begin
2. c:=b-a; Наверное должно быть в обработчике события кнопки :
вот так
procedure TForm1.Button1Click(Sender: TObject);
begin
c:=b-a;
Label1.Caption:=IntToStr(c);
end;
3. Обьявления событий должно быть ниже
implementation

{$R *.dfm}

Вообщем должно быть так :

unit vg;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
a,c,b:Integer;
Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
c:=b-a;
Label1.Caption:=IntToStr(c);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
b:=StrToInt(Edit2.Text);
end;

end.

[disbnt]

А чтобы правельно считало...Примерно такой код :

procedure TForm1.Button1Click(Sender: TObject);
begin
a := strtoint(edit1.text);
b := strtoint(edit2.Text);
c := b - a;
Label1.Caption:=IntToStr(c);
end;