programa en ejecucion???

[Descendents]

var
P:integer;
begin
P:=FindWindow(nil,'Calculadora');
If P=0
then ShowMessage('No esta abierta')
else ShowMessage('Esta abierta')
end;

A ver si te sirve