高分求Delphi简单计算器和完备数源码~在线等！！

计算器只要+ - * / 简单的几项 完备数 要2~10000的！！
我的邮箱 changming1266@163.com
谢谢了！！
拜托各位大虾了，最好能在今天之内呀，拜托，拜托了！
Oo(>_<)oO

简单计算器
var
Form1: TForm1;
Temp1 : String;
Temp2 :Real;
n : Integer;
implementation

{$R *.dfm}

procedure TForm1.Button10Click(Sender: TObject);
begin
if Edit1.Text = ' ' then
Edit1.Text := '0'
else
Edit1.Text := Edit1.Text + '0';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = ' ' then
Edit1.Text := '1'
else
Edit1.Text := Edit1.Text + '1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit1.Text = ' ' then
Edit1.Text := '2'
else
Edit1.Text := Edit1.Text + '2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if Edit1.Text = ' ' then
Edit1.Text := '3'
else
Edit1.Text := Edit1.Text + '3';
end;