hsr/////////////////////////////////////////////////////////////////
아래는 게시판에 많이 나오는 외부플 사용하기를 쓴겁니다.

먼저 타이머를 하나 놓고요 초기 Timer1의 Enabled속성을 False
Interval에 1000값으로 셋팅한후
procedure TForm1.Timer1Timer(Sender: TObject);
begin
     //본 프로그램 종료
     FmMain.Close;
end;

아래는 생성할 폼핸들과 버튼핸들을 찾아 실행시키기 입니다.
var
  TargetForm : HWND;
  ButtonHwnd : HWND;
begin
//다운로드 프로그램 실행
   Winexec('C:......DownLoad.exe',SW_SHOWNORMAL);
   TargetForm := FindWindow(nil, '그폼의 갭션에 있는 글...');
   if TargetForm = 0 then  Exit;
  
   ButtonHwnd := FindWindowEx(TargetForm, 0, 'TButton', '버튼 캡션의 글...');
   if ButtonHwnd <> 0 then begin   //또는 SendMessage로도 해보세요
      PostMessage(ButtonHwnd, WM_LBUTTONDOWN, 0, 0);
      PostMessage(ButtonHwnd, WM_LBUTTONUP, 0, 0);
   end;

   Timer1.Enabled := True;