[FlyInDream]

Я не понял, что должен делать калькулятор, но вот переделка вашего кода:

Код:

uses
  SysUtils, Windows, Dialogs;

var s1,s2:HWND;

begin

begin
s1:=FindWindow(nil ,'Calculator');
s1:=FindWindowEx(s1,0,'Button','4');
ShowMessage(inttostr(s1));
end;
end.