Проблема с программой Delphi

[Иварунька]

По сути не понятно почему при нажатии клавиши Enter (#13) В первом едит боксе не происходит переход на второй, а во втором не выполнение процедуры. И есть идей почему не работает синтаксис на ввод типа данных, как бы при вводе букв значение переменной должно приравниваться = 0 but nothing happens))

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender:TObject; var Key:char);
    procedure Edit2KeyPress(Sender:TObject; var Key:char);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}
    procedure Summa;

 var
  cena:real;
  kol:integer;
  summa:real;
  mes:string;

  begin
    cena:=strtofloat(Form1.Edit1.Text);
    kol:=strtoint(Form1.Edit2.Text);
    summa:=cena*kol;
       if summa > 500 then
         begin
         summa:= summa*0.9;
         mes:='Predostavljaetsaj skidos v 10% '+#13;
         end;
   mes:=mes + 'ob6aja stoimostj tovara'+floattostr(summa);
   Form1.Label4.Caption:=mes;

  end;
  

procedure TForm1.Button1Click(Sender: TObject);
begin
summa;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key:char);
begin
case Key of
  '0'..'9',#8: ;
  #13: Summa;
  else Key:=Chr(0);
end;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key:char);
begin
case Key of
  '0'..'9',#8: ;
  #13: Form1.Edit2.SetFocus;
  '.',',':begin
      if Key = '.' then
      Key:=',';
     if Pos(',',Edit1.Text)<>0
     then Key:=Chr(0);
  end;
  else Key:=Chr(0);
end;
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

никакого особенного криминала в вашем коде я не обнаружил.
чуть-чуть "причесал" код, внёс процедуру Summa в методы формы (так лучше и правильнее. да и не надо писать внутри form1.....)
добавил нормальную поддержку десятичной точки (у вас была некорректная).

Но то, что было по сути вопроса (что по Enter не осуществляется переход/вычисление) - я это не подтверждаю - вроде бы всё работает..
example_source.rar
example_exe.rar


p.s. будьте внимательны с проверкой ввода на событии OnKeyPress - это абсолютно не защищает от вставки всякого мусора по Shift-Ins