Probleme mit Adobe Reader

[gangs-taas]

hey,
ich möchte mit einem Programm die seitenzahl von dem Reader ändern.
Ja klingt irg. sinnlos ist aber nur ein teil eines PRogrammes...

so ich hab mir gedacht:
-ich such das Handle des Feldes wo man die Seitenzahl eingibt
-ich lösch die Zahl aus diesem Editfeld
-Ich schreib eine neue Zahl hinein
-Ich schreib ein "enter" hinein.

umgesetzt hab ichdas so :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
Handle : THandle;

function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND;
var
  i: Word;
  hChild: HWND;
begin
  hChild := 0;
  Result := 0;
  Dec(ChildNr);
  for i := 0 to ChildNr do
  begin
    hChild := FindWindowEx(hParent, hChild, PChar(ChildClassName), nil);
    if hChild = 0 then
      Break;
    Result := hChild;
  end;
end;
function Handle_suchen_Edit : THandle ;
var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('AcrobatSDIWindow',nil);
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'AVL_AVView', nil);
    wndChild := FindWindowEx2(wndChild,'AVL_AVView', 10);
    wndChild := FindWindowEx2(wndChild,'Edit', 3);
    if wndChild <> 0 then
    begin
      Result := wndChild ;
    end
    else
      Result := 0;
  end
  else
    Result := 0;
end;

begin
  Handle := Handle_suchen_Edit  ;
  if Handle <> 0 then
  SendMEssage(Handle, VK_Clear,0,0);
  SendMessage(Handle, WM_CHAR, Ord(55), 0);
  SendMEssage(Handle, VK_Return,0,0);
end;

soo es funktioniert auch alles bis auf die letzte Zeile ...
wisst ihr wieso ich da kein Return rein senden kann ?!
also er trägt in das edit-feld die Seitenzahl ein, die Ich will aber er ghet nicht zu dieser hin...
aber wenn ich von hand in das Feld klick und "enter" drück geht der dahin ...

wisst ihr woran das liegen könnte ?!

lg