Блок схемы (Delphi)

[maksim97maksim]

Короче говоря пошу я вас мне помочь составить блок схемы для курсовой, я сам вообще незнаю как их составлять, поэтому и прошу вас мне: помочь сделать их, или НАУЧИТЬ их делать. ПОЖАЛУЙСТА.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls, XPMan, shellAPI;
type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Label1: TLabel;
    XPManifest1: TXPManifest;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit12, Unit14;
{$R *.dfm}
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.Visible:=false;
form2.enabled:=true;
form2.visible:=true;
form1.enabled:=false;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Visible:=false;
form3.enabled:=true;
form3.visible:=true;
form1.enabled:=false;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
ShellExecute(handle,'open', 'Makss.chm',nil,nil, SW_RESTORE);
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
ShellExecute(handle,nil,'Stalingrad.avi',nil,nil,3);
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
form1.Visible:=false;
form5.enabled:=true;
form5.visible:=true;
form1.enabled:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(handle,nil,'Stalingrad.mp4',nil,nil,3);
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
form1.Visible:=false;
form12.enabled:=true;
form12.visible:=true;
form1.enabled:=false;
end;
end.

Это только 1-я форма.

[Streletz]

В помощь:
Блок-схема алгоритма
Правила составления блок-схем для программ [C/C++;Pascal;Basic] - Алгоритмы
Блок-схема