Осуществить работу с кодом посредством визуальных компонентов

#include <vcl.h>
#include <mmsystem.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
String perfect_numbers(unsigned limit_number);
//--------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
ShowMessage( perfect_numbers (10000));
}
//---------------------------------------------------------------------------
 
String perfect_numbers(unsigned limit_number)
{
    unsigned int limit, summa_delitelei, n, a;
 
    String s = "";
    for (a = 2; a <= limit_number; ++a)
    {
        summa_delitelei = 1;
 
        limit = sqrt(a);
        for (n = 2; n <= limit; ++n)
            if (a % n == 0)
                summa_delitelei += n + a/n;
 
        if (summa_delitelei == a)
            s += String(a) + "\n";
 
    }
    return s;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    unsigned MaxNumber = Edit1->Text.ToInt();
    ShowMessage( perfect_numbers (MaxNumber));
}