[angvelem]

Примерно так, но напрямую в Edit:

Код:

var
  Wnd  : HWND;

function EnumChildProc(WndCtrl : HWND; lParam : Longint) : Boolean; stdcall;
var
  szClass : array[Byte] of Char;
  Buffer  : array[Byte] of Char;
  St      : String;
begin
  GetClassName(WndCtrl, szClass, SizeOf(szClass));
  // Это через кнопку
  if (lstrcmpi(szClass, 'BUTTON') = 0) then
  begin
    SendMessage(WndCtrl, WM_GETTEXT, SizeOf(Buffer), Longint(@Buffer));
    if Buffer[0] <> #0 then
    begin
      St := Buffer;
      if St = '4' then
        SendMessage(WndCtrl, WM_COMMAND, 0, WndCtrl);
    end;
  end
  // Напрямую в Edit
  else if (lstrcmpi(szClass, 'EDIT') = 0) then
  begin
    St := '4';
    SendMessage(WndCtrl, WM_SETTEXT, 0, Longint(PChar(St)))
  end;
  Result := True;
end;

//----------------------------------------------------------

procedure EnumChild(Wnd : HWND);
begin
  if (not EnumChildWindows(Wnd, @EnumChildProc, 0)) then
    Exit;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Wnd: HWND;
begin
  Wnd := FindWindow(NIL, 'Калькулятор');
  if Wnd <> 0 then
  begin
    ShowWindow(Wnd, SW_RESTORE);

    if not EnumChildWindows(Wnd, @EnumChildProc, 0) then
    begin
      Exit;
    end;
  end;
end;

Подправил, теперь 2 варианта, выбирай подходящий.