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

Код:

var
 wnd,wnd2:HWND;
begin
wnd:=FindWindow('TcalcWnd','Калькутятор');//найти окно калькулятора
wnd2:=FindFindowEx(wnd,wnd2,'Edit',nil); //найти полее ввода в калькуляторе
end;

MSDN в помощь. Гугл тоже.