lazarus to c#

procedure TCalculator.FiveClick(Sender: TObject);
begin
  if bf<=1 then
  if bf=1 then begin
  Box.Text:=IntToStr(5);bf:=0;end else
  if Box.Text=IntToStr(0) then begin Box.Text:=IntToStr(5);bf:=0;end else begin
  Box.Text:=Box.Text+IntToStr(5);bf:=0;end else bf:=2;
end;

procedure TCalculator.PlusClick(Sender: TObject);
begin
if bf=2 then bf:=2 else begin
  if ard>0 then  begin
    x:=StrToFloat(Box.Text);
    if ard=1 then
    otv:=y+x;
    if ard=2 then
    otv:=y-x;
    if ard=3 then
    otv:=y*x;
    if ard=4 then
    if x=0 then begin Box.Text:='Деление на ноль невозможно';bf:=2;end else
    otv:=y/x;
    ard:=1;y:=otv;if bf<>2 then begin Box.Text:=FloatToStr(otv);bf:=1;end;end else
  y:=StrToFloat(Box.Text);
  ard:=1;bf:=1;end;
end;

procedure TCalculator.EqualyClick(Sender: TObject);
begin
if bf=2 then bf:=2 else begin
otv:=StrToFloat(Box.Text);
  if ard=0 then begin
    y:=StrToFloat(Box.Text);
    if ard2=1 then
    otv:=y+x;
    if ard2=2 then
    otv:=y-x;
    if ard2=3 then
    otv:=y*x;
    if ard=4 then
    if x=0 then begin Box.Text:='Деление на ноль невозможно';bf:=2;end else
    otv:=y/x;end
  else begin
    x:=StrToFloat(Box.Text);
    if ard=1 then
    otv:=y+x;
    if ard=2 then
    otv:=y-x;
    if ard=3 then
    otv:=y*x;
    if ard=4 then
    if x=0 then begin Box.Text:='Деление на ноль невозможно';bf:=2;end else
    otv:=y/x;
    ard2:=ard;ard:=0;end;
  if bf<>2 then begin Box.Text:=FloatToStr(otv);bf:=1;end;end;
end;