Delphi'de Hesap Makinesi

—Kodlar :
 
procedure TForm1.Button1Click(Sender: TObject); //topla butonu
Var
a,b,sonuc:real; //değişkenler
begin
a:=StrToFloat(Edit1.Text);  //birinci kutudaki string değeri float olarak a ya ver
b:=StrToFloat(Edit2.Text); //ikinci kutudaki string değeri float olarak b ye ver
sonuc:= a + b; //toplama işlemi
Edit3.Text := FloatToStr(sonuc); //float olan değeri string olarak üçüncü kutuda göster
end;
     procedure TForm1.Button2Click(Sender: TObject); //çıkar butonu
Var
a,b,sonuc:real; //değişkenler
begin
     a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
sonuc:= a – b; //çıkarma işlemi
Edit3.Text := FloatToStr(sonuc);
end;
procedure TForm1.Button3Click(Sender: TObject); //çarp butonu
Var
a,b,sonuc:real; //değişkenler
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
sonuc:= a * b; //çarpma işlemi
Edit3.Text := FloatToStr(sonuc);
end;
procedure TForm1.Button4Click(Sender: TObject); //böl butonu
Var
a,b,sonuc:real; //değişkenler
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
sonuc:= a / b; //bölme işlemi
Edit3.Text := FloatToStr(sonuc);
end;
end.