Срочно помогите пожалуйста!!

[Diren]

Помогите пожалуйста составить блок-схему на калькулятор по коду:

var
Form1: TForm1;
one, two: real;
myFlag: byte; // =1 для +
// =2 для -
myFlag2 : boolean=false; // ',' не нажималась
st: string;
i: integer;

implementation

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

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

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

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+'4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+'5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+'6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+'7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+'8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+'9';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
if not myFlag2 then
begin
st :=Edit1.Text;
i :=length (st);
if (i=0) then edit1.Text := '0,'
else
Edit1.Text := Edit1.Text+',';
myFlag2 := true;
end;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+'0';
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
myFlag2 := false;
Edit1.Text := #0;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
one := StrToFloat(form1.edit1.text);
Edit1.Text := '';
myFlag := 1;
button13.Enabled := false;
button14.Enabled := false;
myFlag2 := false;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
two := StrToFloat(form1.edit1.text);
case myFlag of
1: two := two+one;
2: two := -two+one;
end; //case
edit1.Text := FloatToStr(two);
button13.Enabled := true;
button14.Enabled := true;

end;

procedure TForm1.Button14Click(Sender: TObject);
begin
one := StrToFloat(form1.edit1.text);
Edit1.Text := '';
myFlag := 2;
button13.Enabled := false;
button14.Enabled := false;
myFlag2 := false;

end;

procedure TForm1.Button16Click(Sender: TObject);
begin
Form1.Close
end;

end.