Как посылать программам параметры выполнения?

#include <vcl.h>
#pragma hdrstop
 
#include "serv.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HANDLE hMapping;
char* lpData;
char* lpBuffer;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// Тут в принципе и идет передача данный к серверу очень грубо говоря
memcpy ( lpData , Edit1->Text.c_str(),Edit1->Text.Length());
/*Здесь как бы нужна проверка на то что содержит ли Edit только цифры 
но при проецирование файловых данных прототип функции PVOID MapViewOfFile поэтому тут можно хоть структуру передать все зависит от фантазии*/
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
UnmapViewOfFile(lpData); //Тут отключение файла данных от адресного пространства
CloseHandle(hMapping); // Тут закрытие объекта "проекция файла"
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
hMapping = CreateFileMapping( (HANDLE)(-1), // Создаем "проекцию файла" в page file с именем "MyShare" может быть любое
NULL, PAGE_READWRITE, 0, 0x0100, "MyShare");
if (hMapping == NULL){
   Memo1->Lines->Add("NULL");
   }
lpData = (char*) MapViewOfFile(hMapping, FILE_MAP_ALL_ACCESS,0,0,0); //проецирование файловых данных на адресное пространство 
if (lpData == NULL) exit(0);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
 
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int r=20;
int angle= 0;
int dangle = 5;
int rCircle2=100;
int x,y;
int a1, a2;
HANDLE hMapFile;
char* pBuf=NULL;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Timer1->Enabled=true;
Timer1->Interval=100;
Shape1->Shape=stCircle;
Shape1->Width=2*20;
Shape1->Height=2*20;
hMapFile = OpenFileMapping(  // Открываем Section по имени
                   FILE_MAP_ALL_ACCESS,   // read/write access
                   FALSE,                 // do not inherit the name
                   "MyShare");               // name of mapping object
 
   if (hMapFile == NULL)
   {
      ShowMessage(GetLastError());
   }
 
   pBuf = (char*) MapViewOfFile(hMapFile, //  Проецируем данный на адресное пространство процесса
               FILE_MAP_ALL_ACCESS,  // read/write permission
               0,
               0,
               0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Shape1->Visible=false;
int rCircle=100;
if(pBuf!=NULL){
   rCircle2=atoi(pBuf); //Переобразием (char*) к int
   }
angle=angle+dangle;
x=(Form1->ClientWidth / 2)+ceil(rCircle2*cos(angle*M_PI/180));
y=(Form1->ClientHeight  / 2)-ceil(rCircle*sin(angle*M_PI/180));
Shape1->Left= x - r;
Shape1->Top= y - r;
Shape1->Visible=true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
UnmapViewOfFile(pBuf);
CloseHandle(hMapFile);
}
//---------------------------------------------------------------------------