Ввод данных в стороннее приложение не с клавиатуры

  Application->MainFormOnTaskBar = false;
  Application->ShowMainForm = false;

// OnCreate
  HWND hWnd = Application->Handle;
  ShowWindow(hWnd, SW_HIDE);

SendMessage(ed1, WM_GETTEXT, 512, (LPARAM)Edit1->Text.c_str());  // вместо 512 поставьте сколько нужно. Это размер буфера

int x,y;
x=Screen->Width/2;
y=Screen->Height/2;

ShowWindow(wnd, SW_HIDE);

btn2 = FindWindowEx(wnd, NULL, NULL, "Read");  //ищем кнопку Read
  SendMessage(btn2, BM_CLICK, 0, 0);  //кликаем
  ed2 = NextWindowElement(wnd, "Edit", NULL, 2);  // поле между read & write
  SendMessage(ed2, WM_GETTEXT, 32, (LPARAM)Edit3->Text.c_str());

WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->MainFormOnTaskBar = true;
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}

// в .СРР проекта:
  Application->MainFormOnTaskBar = false;
  Application->ShowMainForm = false;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
//...

  HWND hWnd = Application->Handle;
  ShowWindow(hWnd, SW_HIDE);

ShowWindow(wnd, SW_HIDE);

SendMessage(ХедлІButtonTest,WM_SYSCOMMAND,SC_CLOSE,0); // закрыть
SendMessage(ХедлІButtonTest,WM_SYSCOMMAND,SC_MINIMIZE,0); // свернуть
SendMessage(ХедлІButtonTest,WM_SYSCOMMAND,SC_MAXIMIZE,0); // развернуть

SendMessage(ХедлІButtonTest,WM_CLOSE,0,0);