我按http://www.cnblogs.com/xalion/p/4782828.html的方法编写了服务程序。可以运行。在这里谢谢Delphi 新窑洞。

可我加入自己的程序手机就死机。如在服务下建立一个窗口。unit1。在源程序中加入引用和调用。如下：

uses
  Androidapi.JNI.App,unit1;//-《------这里加了引用

function TAndroidServiceDM.AndroidServiceStartCommand(const Sender: TObject;
  const Intent: JIntent; Flags, StartId: Integer): Integer;
begin
   LThread := TThread.CreateAnonymousThread(procedure

    begin
       while true  do
       begin
          sleep(10000);
          DoNotification;

          unit1.show;//《--------这里调用
       end;
    end);
  LThread.FreeOnTerminate := False;
   LThread.Start;
   Result := TJService.JavaClass.START_STICKY;
end;

procedure TAndroidServiceDM.DoNotification;
var
  MyNotification: TNotification;
begin
MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'xalion';
    MyNotification.Title := '时间到了'+formatdatetime('yyyy-mm-dd hh:nn:sss',now);
    MyNotification.AlertBody := '懒人都要起床了';
    MyNotification.FireDate:=now;
    NotificationCenter1.PresentNotification(MyNotification);
  finally
    MyNotification.Free;
  end;

在手机上运行程序死机。

后把调用删除，只用引用死机。

最后只是在服务项目里加一个控件都会死。

是什么原因？？？

谢谢