Service und TTimer

[nahpets]

Hallo,

wat passiert denn hier?

Delphi-Quellcode:

procedure TService1.OnStart(args: array of string);
begin
  addlogtext('Start OnStart');
  Try
    Mainform := TMainform.Create(self);
  Except
    on e : Exception Do addlogtext(e.Message);
  end;
  addlogtext('Ende OnStart');
end;

Welche Logeinträge bekommst Du zu sehen?