Ввод информации в текстовые поля стороннего приложения

rocedure TForm1.Button1Click(Sender: TObject);
var h,sh: integer;
SearchedWnd : HWND;
 EDITCtrl : HWND;
begin
HexToWord('000F027E');
Memo1.Lines.Clear;
// SearchedWnd := FindWindow(nil, 'Заголовок искомого окна');
 SearchedWnd := FindWindow(nil, 'Изменение тарифа');
//*****Это работает*******
//  if SearchedWnd <> 0 then
// ShowMessage('Найдено главное окно') else ShowMessage('Не найдено главное окно');
//************************
     if SearchedWnd <> 0 then
     begin
      ShowMessage('Найдено главное окно');
     end
      else ShowMessage('Не найдено главное окно');
 
 EDITCtrl := FindWindowEx(SearchedWnd, 0, 'pbdw80', '');
  if EDITCtrl <> 0 then
  begin
  ShowMessage('Найдено дочернее окно - ');
   EnumChildWindows(EDITCtrl, @blah, 1);
  Form1.Memo1.Lines.add('===============================');
   EDITCtrl := GetNextWindow(EDITCtrl,GW_HWNDNEXT);
   EnumChildWindows(EDITCtrl, @blah, 1);
  Form1.Memo1.Lines.add('===============================');
   EDITCtrl:= FindWindowEx(EDITCtrl, 0, 'TEdit', '');
   SendMessage(EDITCtrl, WM_PASTE, 0, Integer(PChar('123456789')));
  end
    else
   begin
    ShowMessage('Не найдено первое дочернее окно');
   end;
 // SendMessage(EDITCtrl, WM_SETTEXT, 0, Integer(PChar('123456789')));
 
end;

function blah( HWnd : HWnd; Param : LParam):Boolean;stdcall;
var a: pchar;
begin
 a:= stralloc(256);
 getclassname(hwnd, a, 255);
 Form1.Memo1.Lines.add(a);
 strdispose(a);
 Result := true; {set to false to stop enumeration}
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var h,sh: integer;
SearchedWnd : HWND;
 EDITCtrl : HWND;
begin
Memo1.Lines.Clear;
 SearchedWnd := FindWindow(nil, 'Изменение тарифа');
     if SearchedWnd <> 0 then
     begin
      ShowMessage('Найдено главное окно');
     end
      else ShowMessage('Не найдено главное окно');
 EDITCtrl := FindWindowEx(SearchedWnd, 0, 'pbdw80', '');
  if EDITCtrl <> 0 then
  begin
  Form1.Memo1.Lines.add('============');
   EDITCtrl := GetNextWindow(EDITCtrl,GW_HWNDNEXT);
   EnumChildWindows(EDITCtrl, @blah, 1);
  Form1.Memo1.Lines.add('============');
   EDITCtrl:= FindWindowEx(EDITCtrl, 0, 'TEdit', '');
  SendMessage(EDITCtrl, WM_PASTE, 0, Integer(PChar('123456789')));
  end
    else
   begin
    ShowMessage('Не найдено дочернее окно');
   end;
 // SendMessage(EDITCtrl, WM_SETTEXT, 0, Integer(PChar('123456789')));
end;