expected END but : found

[qqanton]

Подскажите пожайлуста что я делаю не так? У меня высвечивается ошибка expected end but ":" found
unit unit1;

interface

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

type
TForm1 = class(TForm): TEdit;
Edit2: TEdit; Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Buttonl: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure EditlKeyPress(Sender: TObject; var Key: Char);
Button2: TButton;

private
{ Private declarations }
public
{ Public declarations }
end

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.ButtonlClick(Sender: TObject);
var
dist : integer;
t: real;
min : integer;
sek : integer;
v: real;
begin
dist := StrToInt(Editl.Text); t := StrToFloat(Edit2.Text);
min := Trunc(t);
sek := Trunc(t*100) mod 100;
v := (dist/1000) / ( (min*60 + sek)/3600);
label4.Caption := 'Дистанция: '+ Editl.Text +
' м' + #13 + 'Время: ' + IntToStr(min) +
' мин ' + IntToStr(sek) + ' сек ' + #13 +
'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час';
end;
procedure TForml.Button2Click(Sender: TObject);
begin
Form1.Close; end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9': ;
#8 : ;
#13 : Edit2.SetFocus ;
else Key :=Chr(0);
end;
end;
end.

[Min]

видимо ошибка тут:

case Key of
'0'..'9': ;
#8 : ;
#13 : Edit2.SetFocus ;
else Key :=Chr(0);
end;

а именно тут:

'0'..'9': ;
#8 : ;

после ":" должен быть оператор...... либо этого случая не должно быть вообще...

[Alter]

CASE нормальный, но вот зачем вручную трогать секцию с именами компонентов!? Ведь Delphi сам уберёт ненужные записи о компоненте, при удалении его с формы.
Вот ошибка:

type
TForm1 = class(TForm): TEdit;