Вопрос по Delphi, помогите найти ошибку в участке коде
Statement expected but 'procedure' found - такая ошибка
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
Label5: TLabel;
Label6: TLabel;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9' : ;
#8 : ;
#13 : Edit2.SetFocus;
end;
end;
ВОТ НА ЭТОТ УЧАСТОК РУГАЕТСЯ-----------------
procedure TForm1.Button1Click(Sender: TObject);
begin
var
dist : integer;
min,rain : integer;
sek : real;
v: real;
begin
dist := StrToInt(Edit1.Text);
min := StrToInt(Edit2.Text);
sek := StrToFloat(Edit3.Text);
if (dist = 0) or ((min = 0) and (sek = 0)) then
begin
ShowMessage('Íàäî çàäàòü äèñòàíöèþ è âðåìÿ.');
exit;
end;
v := (dist/1000) / ((min*60 + sek)/3600);
label5.Caption := 'Äèñòàíöèÿ: '+ Edit1.Text + ' ì' + #13 +
'Âðåìÿ: ' + IntToStr(min) + ' ìèí ' +
FloatToStrF(sek, ffGeneral,4,2) + ' ñåê ' + #13 + 'Ñêîðîñòü: ' +
FloatToStrF(v,ffFixed,4,2) + ' êì/÷àñ';
end;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9' :;
#8 : ;
#13 : Edit3.SetFocus;
else Key :=Chr(0);
end;
end;
---------------------------------------------------
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9' : ;
',','.':
begin
Key:=DecimalSeparator;
if Pos(DecimalSeparator,Edit3.Text)=1 then Key := Char(0);
end;
#8 : ;
#13 : Button1.SetFocus;
else Key :=Chr(0);
end;
end;
end.
ПОПРАВОЧКА, ОШИБКА ТАКАЯ:
Statement expected but 'var' found
ого, 2 девушки - программистки)