关于句柄的一个小问题

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var  S: string;
  L: Integer;  main,vHandle:THandle;begin
  vHandle := FindWindow(nil,'证件照图片浏览');
  if vHandle = 0 then
  ShowMessage ('目标窗口没找到！');
  main := FindWindowEx(vHandle, 0,'edit',nil);  if main =0 then
  ShowMessage ('目标没找到！');
  L := main ;
  if L <= 0 then Exit;
  SetLength(S, L);
  SendMessage(main, WM_GETTEXT, L, Integer(@S[1]));
  Memo1.Lines.Add(S);end;end.上面是我写的一个小程序;目的是把别外一个软件上面每个EDIT框框里面的内容都复制过来;(edit控件一共有13个)现在可以运行;不过只能复制第一个EDIT框中的内容;main := FindWindowEx(vHandle, 0,'edit',nil);这个我改成;main := FindWindowEx(vHandle, 0,'edit','edit3');提示'目标没找到'我确实不知道怎么改;哪个高手帮我看一下