الة حاسبة بسيطة مع الدلفي - نسخة قابلة للطباعة

كود :
[align=left]unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    btn6: TButton;
    btn7: TButton;
    btn8: TButton;
    btn9: TButton;
    btn10: TButton;
    btn11: TButton;
    btn12: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var z,x,c: Integer;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin

edt1.Text:='1';
end;

procedure TForm1.btn10Click(Sender: TObject);
begin
x:=StrToInt(edt1.text);
edt1.Text:='';

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
edt1.Text:='2';
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
edt1.Text:='3';
end;

procedure TForm1.btn12Click(Sender: TObject);
begin
z:=StrToInt(edt1.Text) ;
c:=z+x;
edt1.Text:=IntToStr(c);
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
edt1.Text:='4';
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
edt1.Text:='5';
end;

procedure TForm1.btn6Click(Sender: TObject);
begin
edt1.Text:='6';
end;

procedure TForm1.btn7Click(Sender: TObject);
begin
edt1.Text:='7';
end;

procedure TForm1.btn8Click(Sender: TObject);
begin
edt1.Text:='8';
end;

procedure TForm1.btn9Click(Sender: TObject);
begin
edt1.Text:='9';
end;

procedure TForm1.btn11Click(Sender: TObject);
begin
edt1.Text:='0';
end;

end.
[/align]