Memo1.Lines.Add(d);

var
f:System.Text;
begin
AssignFile(f,'C:\lol.txt');
Rewrite(f);
WriteLn(f, d);
CloseFile(f);
end;

var
 ButtonHandle:THandle;

function EnumChildProc(wnd:hwnd; lParam:integer):boolean; stdcall;
var
 buf:array[0..255] of char;
begin
 GetWindowText(wnd, buf, 255);
 if Lstrcmpi('Continue >>>', buf) = 0 then
  begin
   ButtonHandle := wnd;
   result := false;
  end
 else
  begin
   ButtonHandle := 0;
   result := true;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
 WindowHandle:THandle;
begin
 WindowHandle := FindWindow(nil,'Form1'); // тут свои параметры укажиш
 if WindowHandle <> 0 then
 begin
  EnumChildWindows(WindowHandle, @EnumChildProc, 0);
  ShowMessage('Button Handle = '+inttohex(ButtonHandle, 8));
 end;
end;

function EnumChildProc(wnd:hwnd; lParam:integer):boolean; stdcall;
var
 buf:array[0..255] of char;
begin
 GetWindowText(wnd, buf, 255);
 form1.memo1.lines.add(inttohex(wnd, 8)+' '+buf);
 result := true;
end;

000614CE     TFmMain     Hard Disk Wipe Tool 2.35 build 1178

var wnd:HWND;
    b1,b2:array[0..255] of char;
begin
 wnd:=FindWindow(nil,PChar('Hard Disk Wipe Tool 2.35 build 1178'));
 if wnd<>0 then
 begin
  GetClassName(wnd,b1,255);
  GetWindowText(wnd, b2, 255);
  Memo1.Lines.Add(inttohex(wnd,8)+'   '+b1+'   '+b2);
 end;

00180DE0   TFmMain   Hard Disk Wipe Tool 2.35 build 1178
---002611B8   TPanel   
------00371188   TPanel   
------00171238   TPageControl   
---------0010126A   TTabSheet   Device details
---------0028117E   TTabSheet   WIPE
---001A1212   TStatusBar   
---000E1202   TPanel   
---0016128C   TPanel

Sendmessage(h,WM_LBUTTONDOWN,MK_LBUTTON,MakeLParam(1,1)); // нажать
Sendmessage(h,WM_LBUTTONUP,MK_LBUTTON,MakeLParam(1,1));   // и отпустить

if (GetWindowText(hw, wText, 255) > 0) then
      if (wText='WIPE') then begin
         SendMessage(hw,WM_IME_KEYDOWN,VK_SPACE,0);
         SendMessage(hw,WM_IME_KEYUP,VK_SPACE,0);