Delphide İşlem Programı

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
birincisayi,ikincisayi,sonuc:Double;
isaret:string;
begin
        birincisayi:=StrToFloat(Edit1.Text);
        ikincisayi:=StrToFloat(Edit2.Text);
        isaret:=Edit3.Text;
        if (isaret='+') then
        begin
          sonuc:=birincisayi+ikincisayi;
        end;
        if (isaret='-') then
        begin
          sonuc:=birincisayi-ikincisayi;
        end;
        if (isaret='*') then
        begin
          sonuc:=birincisayi*ikincisayi;
        end;
        if (isaret='/') then
        begin
          sonuc:=birincisayi/ikincisayi;
        end;
        Edit4.Text:=FloatToStr(sonuc);
end;

end.