[Lazarus] Simple daemon on linux does nothing

[Krzysztof]

Hi,

I'm reading this article about services:
http://wiki.freepascal.org/Daemons_and_Services

I have created onStart event which should create text file in my home
directory but nothing happens:

procedure TDaemon1.DataModuleStart(Sender: TCustomDaemon; var Ok: Boolean);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Add('test');
    sl.SaveToFile('/home/dibo/test.txt');
  finally
    sl.Free;
  end;
end;

My run script return: Starting test Service: [OK]
And I see my service by command: ps aux
I also created DaemonDef for my TDaemon1 class. What I'm missing?

Lazarus stable release 1.0.6
FPC stable 2.6.0
Linux Mint (debian) 64bit
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20130225/6e957e66/attachment-0002.html>