Из консольного режима перенести на форму

#pragma hdrstop
#pragma argsused
 
#include <stdio.h>
#include <tchar.h>
#include <conio.h>
#define N 100
#define true 1
#define false 0
 
int _tmain(int argc, _TCHAR* argv[])
{
    int repeat = 1;
 
 
    int array_N[ N ];
    int a, i, j, tmp;
    int direction; 
 
    do
    {
        clrscr();
        do
        {
           printf("Vvidite skolko chisel budet ( Max = 100 ): ");
           scanf("%d", &a);
           if  ( (a <= 0) || ( a > 100) )  // Защита от выхода за границу
                {
                    printf("\nNedopustimij interval!");
                    clrscr();
                }
        } while ( (a <= 0) || ( a > 100) );
 
        for (i = 0; i < a; i++)
        {
            printf("No. # %d: ", i+1);
            scanf("%d", &array_N[i]);
        }
 
            if ( ( array_N[ 0 ] % 2 == 0 ) || ( array_N[ 0 ] == 0 ))
            {
                printf(" \n");
                printf("\nUporadochitj po vozrostaniju\n");
                direction = true;
            }
            else
            {
                printf("\nUporadochitj po ubivaniju\n");
                direction = false;
            }
 
                for (i = 1; i < a; ++i) // цикл проходов, i - номер прохода
                {
                    tmp = array_N[i];
                        for (j = i - 1; j >= 0 && (array_N[j] > tmp) == direction; --j) // поиск места элемента в готовой последовательности
                            array_N[j + 1] = array_N[j];    // сдвигаем элемент направо, пока не дошли
                            array_N[j + 1] = tmp; // место найдено, вставить элемент
                }
                for (i = 0; i < a; i++)
                    printf("%d ", array_N[i]);
                        printf("\n");
 
            printf("\nRepeat the programm? >=1(da)/0(net)");
        scanf("%d", &repeat);
    } while (repeat != 0);
 
    return 0;
}

if  ( (a <= 0) || ( a > 100) ) 
/* в этой строке, Declaration syntax error
*  Full parser context
*  Unit2.cpp(21): parsing: void _fastcall TForm2::Button1Click(TObject *) 
*/

void __fastcall TForm2::Button1Click(TObject *Sender)
{
    int array_N[ N ];
    int x ,i ,j , tmp;
    int direction;  // int, ja tira C valoda
    int a = StrToFloat(Edit1->Text)
 
           if  ( (a <= 0) || ( a > 100) )  // Граница от 0 до 100
                {
                    ShowMessage("Недопустимое значение!");
                } else
 
            if ( ( array_N[ 0 ] % 2 == 0 ) || ( array_N[ 0 ] == 0 ))
            {
                ShowMessage("По возростанию");
                direction = true;
            }
            else
            {
                ShowMessage("По убыванию");
                direction = false;
            };
 
                for (i = 1; i < a; ++i) // цикл проходов, i - номер прохода
                {
                    tmp = array_N[i];
                        for (j = i - 1; j >= 0 && (array_N[j] > tmp) == direction; --j) // поиск места элемента в готовой последовательности
                            array_N[j + 1] = array_N[j];    // сдвигаем элемент направо, пока не дошли
                            array_N[j + 1] = tmp; // место найдено, вставить элемент
                }
                for (i = 0; i < a; i++)
                    Memo1->Lines->Add(FloatToStr(a));
}

Memo1->Lines->Add(FloatToStr(a));

Memo1->Lines->Add(FloatToStr(array_N[ N ])); // можно ещё так -> array_N[ i]