Поле чужой программы. Не могу получить текст

procedure TForm1.Button3Click(Sender: TObject);
var
 s:Pchar;
 h:Hwnd;
begin
h:=findWindowEx(FindWindow(nil,'Ввод данных'),0,'TEdit',nil);
s:=GetMemory(12);
SendMessage(h,WM_GetText,10,integer(s));
Showmessage(s);
FreeMemory(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 h:hwnd;
 s:array [0..255] of char;
begin
h:=findWindowex(FindWindow(nil,'Form1'),0,'TEdit',nil);
Edit1.Text:= IntToStr(h);
Sendmessage(h,WM_GETTEXT,20,Integer(@s));
Edit2.Text:= String(s);
Showmessage(s);
end;

HWND FindWindowEx(
 
HWND hwndParent,     // дескриптор родительского окна
HWND hwndChildAfter, // дескриптор дочернего окна
LPCTSTR lpszClass,   // указатель имени класса
LPCTSTR lpszWindow   // указатель имени окна
 
);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure EnumChilds(h: hWND);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function EnumChildProc (h: hWND; lParam: integer): boolean; stdcall;
var
 s: Array[0..255] of Char;
begin
  GetWindowText(h,s,255);
  Form1.Memo1.Lines.Add(IntToStr (h)+'---'+s);// в memo будут все дочернии
  Result := TRUE;
end;
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
 hwnd: DWord;
begin
 hwnd:= StrToInt(Edit1.Text);// хэндл родительского окна
 EnumChilds(hWND);
end;
 
procedure TForm1.EnumChilds(h: hWND);
begin
  Memo1.Clear;
  EnumChildWindows (h, @EnumChildProc, 0);
end;
 
end.

stdcall

  GetWindowText(h,s,255);

  Form1.Memo1.Lines.Add(IntToStr (h)+'---'+s)