Как исправить ошибку.Мне пожалуйста сделать так чтобы btn12 могла ставить в edt1 - перед числом . Для решения задач

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    btn6: TButton;
    btn7: TButton;
    btn8: TButton;
    btn9: TButton;
    btn10: TButton;
    btn11: TButton;
    edt1: TEdit;
    btn12: TButton;
    btn13: TButton;
    btn14: TButton;
    btn15: TButton;
    btn16: TButton;
    btn17: TButton;
    btn18: TButton;
    btn19: TButton;
    btn20: TButton;
    lbl1: TLabel;
    procedure btn3Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn16Click(Sender: TObject);
    procedure btn15Click(Sender: TObject);
    procedure btn17Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure btn13Click(Sender: TObject);
    procedure btn14Click(Sender: TObject);
    procedure btn18Click(Sender: TObject);
    procedure btn20Click(Sender: TObject);
    procedure btn19Click(Sender: TObject);
    procedure btn21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  b,d,s,f,l:real;
  z,q:string;
 
implementation
 
{$R *.dfm}
 procedure TForm1.btn3Click(Sender: TObject);   //1
begin
edt1.Text:=edt1.Text + '1';
lbl1.Visible:=False;
end;
 
procedure TForm1.btn6Click(Sender: TObject);   //2
begin
edt1.Text:=edt1.Text + '2';
lbl1.Visible:=False;
end;
 
procedure TForm1.btn7Click(Sender: TObject);//3
begin
edt1.Text:=edt1.Text + '3';
lbl1.Visible:=False;
end;
 
procedure TForm1.btn2Click(Sender: TObject); //4
begin
edt1.Text:=edt1.Text + '4';
lbl1.Visible:=False;
end;
 
procedure TForm1.btn4Click(Sender: TObject); //5
begin
edt1.Text:=edt1.Text + '5';
lbl1.Visible:=False;
end;
 
procedure TForm1.btn8Click(Sender: TObject);  //6
begin
edt1.Text:=edt1.Text + '6';
lbl1.Visible:=False;
end;
 
procedure TForm1.btn1Click(Sender: TObject);  //7
begin
edt1.Text:=edt1.Text + '7';
lbl1.Visible:=False;
end;
 
procedure TForm1.btn5Click(Sender: TObject); //8
begin
    edt1.Text:=edt1.Text + '8';
    lbl1.Visible:=False;
end;
 
procedure TForm1.btn9Click(Sender: TObject);  //9
begin
edt1.Text:=edt1.Text + '9';
lbl1.Visible:=False;
end;
 
procedure TForm1.btn16Click(Sender: TObject);  //0
begin
edt1.Text:=edt1.Text + '0';
lbl1.Visible:=False;
end;
 
procedure TForm1.btn15Click(Sender: TObject); //
begin
edt1.Text:=' ';
lbl1.Visible:=True;
end;
 
procedure TForm1.btn17Click(Sender: TObject);  //,
begin
edt1.Text:=edt1.Text + ',';
end;
 
procedure TForm1.btn10Click(Sender: TObject); //+
begin
b:=strtofloat(edt1.Text);
z:='+';
edt1.Clear;
end;
 
procedure TForm1.btn11Click(Sender: TObject);  //=
begin
 d:=strtofloat(edt1.Text);
 edt1.Clear;
 if z='+' then s:=b+d;
  if z='-' then s:=(b*(-1))-d;
   if z='*' then s:=b*d;
     if z='/' then s:=b/d;
     if z='sqrt' then s:=Sqrt(b);
     if z='sqrt' then l:=Sqrt(f);
     if z='%' then s:=b/100*d;
      if z='$' then s:=Exp(d*LN(b));
 
 edt1.Text:=FloatToStr(s);
end;
 
procedure TForm1.btn12Click(Sender: TObject);
begin
  edt1.Text:=edt1.Text + '-';
d:=strtofloat(edt1.Text);
z:='-';
edt1.Clear;
end;
 
procedure TForm1.btn13Click(Sender: TObject);
begin
 b:=strtofloat(edt1.Text);
z:='*';
edt1.Clear;
end;
 
procedure TForm1.btn14Click(Sender: TObject);
begin
b:=strtofloat(edt1.Text);
z:='/';
edt1.Clear;
end;
 
procedure TForm1.btn18Click(Sender: TObject);
begin
b:=strtofloat(edt1.Text);
edt1.Clear;
s:=Sqrt(b);
l:=Sqrt(f);
edt1.Text:=FloatToStr(s)
 
end;
 
procedure TForm1.btn20Click(Sender: TObject);
 
begin
b:=strtofloat(edt1.Text);
z:='%';
edt1.Clear;
 
end;
procedure TForm1.btn19Click(Sender: TObject);
begin
 b:=strtofloat(edt1.Text);
z:='$';
edt1.Clear;
end;
 
 
 
 
procedure TForm1.btn21Click(Sender: TObject);
begin
d:=strtofloat(edt1.Text);
z:='-';
edt1.Text:=edt1.Text+'-';
end;
 
end.

procedure TForm1.btn12Click(Sender: TObject);
begin
  edt1.Text:='-' + edt1.Text;
d:=strtofloat(edt1.Text);
z:='-';
edt1.Clear;
end;

edt1.Text:='';

procedure TForm1.btn12Click(Sender: TObject);
begin
  edt1.Text:=edt1.Text + '-';
d:=strtofloat(edt1.Text);
z:='-';
edt1.Clear; // Очистка edt1.
end;