كود ألة حاسبة

السلام عليكم ورحمة الله

هذا كود الالة الحاسبة تعمل بشكل صحيح**والمشكلة اني اريد ان اجعلها تعمل بالkey board الخاصة بالحاسب عن طريق ASCII وهو الموجود بين النجوم(ناقص) ولكن لم أستطع مع العلم بأني جديدة في الدلفي

var
  Form1: TForm1;
implementation
 VAR I,X:real;
 Z,n:char;
 s:string;
{$R *.dfm}
procedure TForm1.Button4Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'3';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EDIT1.Text:= EDIT1.Text+'0';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'1';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'2';
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'4';
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'5';
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'6';
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'7';
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'9';
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'8';
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
x:=strtofloat(EDIT1.Text);
z:='*';
Button16.Enabled:=true;
EDIT1.Clear;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
x:=strtofloat(EDIT1.Text);
z:='/';
Button16.Enabled:=true;
EDIT1.clear;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
 x:=strtofloat(EDIT1.Text);
z:='-';
Button16.Enabled:=true;
EDIT1.Clear;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
if EDIT1.Text='.'then
 Button16.Enabled:=true
 else
 Button16.Enabled:=false;
if (z='+' )then
EDIT1.Text:=floattostr((x)+ strtofloat (EDIT1.Text))
else
if (z='-' )then
EDIT1.Text:=floattostr((x)- strtofloat(EDIT1.Text))
else
if (z='*' )then
EDIT1.Text:=floattostr((x)* strtofloat(EDIT1.Text))
else
if (z='/' )then
edit1.text:=floattostr((x)/ strtofloat(EDIT1.Text));
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
x:=strtofloat(EDIT1.Text);
 z:='+';
Button16.Enabled:=true;
EDIT1.clear;
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
edit1.text:=edit1.text+'.';
Button16.Enabled:=false;
End;


procedure TForm1.Button17Click(Sender: TObject);
begin
EDIT1.Clear;
End;
//******************************************************************//
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key >='0') and (key <='9' )or(key=#043)or(key=#045)or (key=#13) then
else
key:=#0;
if (key=#043) then
begin
x:=strtofloat(EDIT1.Text);
EDIT1.Clear;
end;
if(key=#13) then
EDIT1.Text:=floattostr((x)+ strtofloat (EDIT1.Text));

 if (key=#045) then
begin
x:=strtofloat(EDIT1.Text);
z:='-';
EDIT1.Clear;
end;
if(key=#13) then
EDIT1.Text:=floattostr((x)- strtofloat (EDIT1.Text));
end;
//******************************************************************//
procedure TForm1.Button18Click(Sender: TObject);

begin
  s:=edit1.text;
if s = '' then exit;
delete(s, length(s), 1);
edit1.text:=s;
end;
end