Arkadaslar Delphide daha yeniyim.. Hesap makinesi hazırlamaya calıştım ancak... Cok sorun cıktı bu kodlara daha ne eklemem gerekir.. yardımlarınız icin şimdiiden teşekkurler...

var
Form1: TForm1;
sayi1:integer;
islem:integer;
sayi2:integer;
sonuc:real;



rocedure TForm1.Button5Click(Sender: TObject);
begin
sayi1:=strtoint(edit1.text);
islem:=1;
edit1.text:='';
button4.Enabled:=true;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
sayi1:=strtoint(edit1.text);
islem:=2;
edit1.text:='';
button4.Enabled:=true;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
sayi1:=strtoint(edit1.text);
islem:=3;
edit1.text:='';
button4.Enabled:=true;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
sayi1:=strtoint(edit1.text);
islem:=4;
edit1.text:='';
button4.Enabled:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
sayi1:=strtoint(edit1.text);
islem:=5;
edit1.text:='';
button4.Enabled:=true;
end;



procedure TForm1.Button4Click(Sender: TObject);
begin
sayi2:=strtoint(edit1.text);
if islem=1 then sonuc:=sayi1+sayi2;
if islem=2 then sonuc:=sayi1-sayi2;
if islem=3 then sonuc:=sayi1*sayi2;
if islem=4 then sonuc:=sayi1/sayi2;
if islem=5 then sonuc:=sayi1*sayi2/100;
edit1.text:=floattostr(sonuc);
end;
__________________