1:
2:
3:
4:
5:
6:

constructor TSL.create;
begin
    FTPC:= TIdFTP.Create(self);
    qu:= TQuery.Create(self);
    qu.DatabaseName:='Warenwirtschaft';
end;					

1:
2:
3:
4:

procedure TService1.ServiceCreate(Sender: TObject);
begin
  SL.create();
end;					

1:

sl := TSL.Create();					

1:

  SL:=TSL.create();					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

program DienstWarenwirtschaft;

uses
  SvcMgr,
  uDienst in 'uDienst.pas' {Service1: TService},
  uSL in 'uSL.pas';

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'Dienst zum Konvertieren von Datenbanken';
  Application.CreateForm(TService1, Service1);
  Application.Run;
end.					

1:
2:
3:
4:
5:

unit uSL;

interface

uses DB,DBTables, IDFTP, Variants, SysUtils, Classes;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

type
  TDienstSL = class(TService)
    Timer: TTimer;
    FTPC: TIdFTP;
    qu: TQuery;
    procedure TimerTimer(Sender: TObject);
    procedure ServiceCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    SL : TSL;
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  DienstSL: TDienstSL;

..
..

procedure TDienstSL.ServiceCreate(Sender: TObject);
begin
  SL:=TSL.create();
  self. ServiceStartName:='DienstSL';
end;