Нужна прога нажатия кнопки на Delphi

[СерегаЯ]

Есть приложение "Мегафон Интернет" надо из приложения на дельфи нажать кнопку "Подключить" в мегафоновском приложении. Делаю так:

procedure TForm1.Button2Click(Sender: TObject);
var
wnd: HWND;
caption: string;
begin
wnd := GetTopWindow(0);
repeat
SetLength(caption, GetWindowtextLength(wnd));
GetWindowText(wnd, @caption[1], length(caption) + 1);
if (trim(caption) = 'Мегафон Интернет') then
ClickOnForm(wnd, 'Подключить');
wnd := GetNextWindow(wnd, GW_HWNDNEXT);
until wnd = 0;
end;

procedure TForm1.ClickOnForm(wnd: HWND; caption: string);
var
TheChildHandle: HWND;
begin
TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption));
SendMessage(TheChildHandle, WM_LButtonDown, 1, 1);
end;

Не находит TheChildHandle (равен =0).

Оплачу. Нужен исходник как пример. Пишите wfru@list.ru

[Кольша]

Контакты в подписи.

[Человек_Борща]

Пишите, не вижу ничего сложного.