如何改变另一个程序中的Edit.text 值

我想用一个程序B监视另一个程序A的运行，
程序A的窗口标题为'FORMAA',控件Edit1.text:='AAAA';程序B中有一个Timer1.代码如下:
time1. 第一次执行时，可以获得程序A的Edit1.text 的内容为‘AAAA’；
但在time1为程序A的Edit1.text付值'BBBB'后，程序A的Edit1.text已显示为'BBBB';
但time1. 第二次执行时，可以获得程序A的Edit1.text 的内容为仍然为‘AAAA’；
而不时'BBBB',不知为什么，请指教。
timer1的代码如下：
procedure TForm2.Timer1Timer(Sender: TObject);
var i,B2,B3,HA,h1,h2,h3,hwn:integer;
   S:array [1..255] of char;
   SD:string;
begin
for I:=1 to 255 do
S[i]:=' ';HA:= FindWindow(nil,'FORMAA');
if HA=0 then
Exit;
B3:=0;
B3:=findwindowex(HA,0,'TEdit',0);
if GetWindowText(B3,@S,255)>0 then
showmessage(S);
sendmessage(h3,WM_SETTEXT,0,lParam(pChar('BBB')));end;