Создать блок-схему к программе

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <Registry.hpp>
#include <Setupapi.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
    //определение названия компьютера
    unsigned long computerNameLength = MAX_COMPUTERNAME_LENGTH + 1;
    char *computerName = new char[computerNameLength];
    GetComputerName(computerName, &computerNameLength);
    PCNameLabel->Caption = PCNameLabel->Caption + computerName;
    delete [] computerName;
//определение операционной системы
    if (Win32MajorVersion == 5 && Win32MinorVersion == 1)
        OSLabel->Caption = OSLabel->Caption + "Windows XP";
    else if (Win32MajorVersion == 6 && Win32MinorVersion == 1)
        OSLabel->Caption = OSLabel->Caption + "Windows 7";
    else if (Win32MajorVersion == 6 && Win32MinorVersion == 2)
        OSLabel->Caption = OSLabel->Caption + "Windows 8";
    else if (Win32MajorVersion == 6 && Win32MinorVersion == 3)
        OSLabel->Caption = OSLabel->Caption + "Windows 8.1";
    else if (Win32MajorVersion == 6 && Win32MinorVersion == 4)
        OSLabel->Caption = OSLabel->Caption + "Windows 10";
//определение процессора
    AnsiString processorName = "Unknown";
    TRegistry *registry = new TRegistry;
    registry->RootKey = HKEY_LOCAL_MACHINE;
    registry->OpenKey("Hardware\\Description\\System\\CentralProcessor\\0", false);
    processorName = registry->ReadString("ProcessorNameString");
    CPULabel->Caption = CPULabel->Caption + processorName;
    delete registry;
 
    //определение объема оперативной памяти
    MEMORYSTATUS memoryStatus;
    GlobalMemoryStatus(&memoryStatus);
    RAMLabel->Caption = RAMLabel->Caption + "физическая: " + memoryStatus.dwTotalPhys/1024/1024 + " МБ | виртуальная: " + memoryStatus.dwTotalVirtual/1024/1024 + " МБ";
//определение объема жестких дисков
    DWORD drives = GetLogicalDrives();
    for (int i = 0; i < 26; i++)
    {
        AnsiString s = "";
        int currentDrive = ((drives >> i) & 1);
        if (currentDrive)
        {
            AnsiString driveLetter = AnsiString((char)(65 + i)) + ":";
            s += driveLetter;
            UINT driveType = GetDriveType((driveLetter + "").c_str());
            if (driveType == DRIVE_REMOVABLE)
                s += " (REMOVABLE) ";
            else if (driveType == DRIVE_FIXED)
                s += " (FIXED) ";
            else if (driveType == DRIVE_REMOTE)
                s += " (REMOTE) ";
            else if (driveType == DRIVE_CDROM)
                s +=  " (CD-ROM) ";
            else if (driveType == DRIVE_RAMDISK)
                s += " (RAMDISK) ";
            else
                s += " (UNKNOWN) ";
            s += IntToStr(DiskSize(i + 1)/1024/1024) + " МБ";
            HDDsRichEdit->Lines->Add(s);
        }
    }
    //определение установленных устройств
    HDEVINFO hDevInfo;
    SP_DEVINFO_DATA devInfoData;
    hDevInfo = SetupDiGetClassDevs(NULL, 0, 0, DIGCF_PRESENT | DIGCF_ALLCLASSES);
    devInfoData.cbSize = sizeof(SP_DEVINFO_DATA);
    for (int i = 0; SetupDiEnumDeviceInfo(hDevInfo, i, &devInfoData); i++)
    {
        DWORD DataT;
        LPTSTR deviceName = NULL;
        DWORD bufferSize = 0;
        while (!SetupDiGetDeviceRegistryProperty(hDevInfo, &devInfoData, SPDRP_DEVICEDESC, &DataT, (PBYTE)deviceName, bufferSize, &bufferSize))
        {
            if (GetLastError() == ERROR_INSUFFICIENT_BUFFER)
            {
                if (deviceName)
                    LocalFree(deviceName);
                deviceName = (char*)LocalAlloc(LPTR, bufferSize * 2);
            }
        }
        AnsiString s = IntToStr(i + 1) + ". " + deviceName;
        InstalledDevicesRichEdit->Lines->Add(s);
 
        if (deviceName)
            LocalFree(deviceName);
  }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::N2Click(TObject *Sender)
{
MessageBox(0,"Программа предоставляет некоторую системную информацию.","О программе",MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::N3Click(TObject *Sender)
{
MessageBox(0,"Программу разработал студент СПТ группы 3-09-П Григорьев Иван Иванович.","Разработчик",MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::N4Click(TObject *Sender)
{
exit(1);        
}
//---------------------------------------------------------------------------