perdon, entendi que querias saber si tu aplicacion estaba ejecutandose.
Aqui va otro ej, sacado de Trucomania, donde puedes saber si un exe esta ejecutandose pero necesitas saber el path donde se encuentra el mismo.
procedure TForm1.Button1Click(Sender: TObject);
function EstaEjecutandose (ExeFile:string): boolean;
var H:word;
begin
H:=CreateFile(PChar(ExeFile), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
Result := (H >= 65535);
CloseHandle(H);
end;
begin
if EstaEjecutandose ('c:\windows\notepad.exe')
then Label1.Caption:='SI/YES'
else Label1.Caption:='NO';
end;
Espero que te sirva. Saludos