Ввод дробного числа в Edit (автозамена точки на запятую)

...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    case Key of
      '0'..'9',#8: ; // цифры и <Backspace>
      { Обработку десятичного разделителя
        сделаем "интеллектуальной". Замени точку и
        запятую на символ DecimalSeparator - символ,
        который используется при записи дробных чисел.
      }
      '.',',':
         begin
           Key:=DecimalSeparator;
           // проверим, введен ли уже в поле
           // Edit десятичный разделитель
           if pos(DecimalSeparator,Edit1.Text) <> 0
             then Key:= #0;
         end;
      #13: Edit2.SetFocus; // <Enter> - курсор в поле Edit2
      else Key:= #0; // остальные символы запрещены
    end;
end;
...

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
 
       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit1.Text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(Edit1.Text) <> 0
                      then Key := Chr(0);
        #13:Edit2.Setfocus;
        else   // остальные символы запрещены
               key := Chr(0);
 
    end;
end;
 
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var s:real;
begin
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>
 
       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit2.Text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(Edit2.Text) <> 0
                      then Key := Chr(0);
        #13:begin
            s:=StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text);
            Edit3.Text:=FloatToStrF(s,fffixed,6,2);
            end;
        else   // остальные символы запрещены
               key := Chr(0);
    end;
end;

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;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Change(Sender: TObject);
 
  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
    #8,'0'..'9' :  ; // цифры и <Back Space>
    '.',',': // разделитель целой и дробной частей числа
      begin
        if Key <> DecimalSeparator then
          Key := DecimalSeparator; // заменим разделитель на допустимый
        if Pos(DecimalSeparator,Edit1.Text) <> 0
          then Key := Chr(0); // запрет ввода второго разделителя
      end;
//    '-':    // минус можно ввести только первым символом,
//            // т.е. когда ячейка пустая
//      if Length(Edit1.Text) <> 0
//        then Key := Chr(0);
    #13:Edit2.Setfocus;
    else   // остальные символы запрещены
       key := Chr(0);
  end;
end;
 
// Нажатие клавиши в поле Цена
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    #8,'0'..'9' :  ; // цифры и <Back Space>
    '.',',': // разделитель целой и дробной частей числа
      begin
        if Key <> DecimalSeparator then
          Key := DecimalSeparator; // заменим разделитель на допустимый
        if Pos(DecimalSeparator,Edit2.Text) <> 0
          then Key := Chr(0); // запрет ввода второго разделителя
      end;
//    '-':    // минус можно ввести только первым символом,
//            // т.е. когда ячейка пустая
//      if Length(Edit2.Text) <> 0
//        then Key := Chr(0);
    #13:Button1.SetFocus; // Сделать активной кнопку пересчет
    else   // остальные символы запрещены
       key := Chr(0);
  end;
end;
 
// текст, находящийся в поле редактирования, изменился
procedure TForm1.Edit1Change(Sender: TObject);
  begin
    // проверим, есть ли данные в полях редактирования
    if (Length(Edit1.Text)=0) or (Length(Edit2.Text)=0) then
      Button1.Enabled:=False  //Кнопка пересчет недоступна доступна
    else
      Button1.Enabled:=True  //Кнопка пересчет доступна
end;
 
procedure TForm1.Button1Click(Sender: TObject);
  var dol,kurs,rub:real;
begin
  kurs:=StrToFloat(Edit1.Text);
  dol:=StrToFloat(Edit2.Text);
  rub:=kurs*dol;
  rub:=round(rub*100)/100;
  Label4.Caption:=FloatToStr(dol)+'$ = '+ FloatToStr(rub)+'руб.';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;
 
end.

TEdit(Sender).Text