Windowsdienst mit Delphi starten

[hirsch]

@Astat, vielen Dank,
das mit dem Dienst starten klappt ja einwandfrei, aber beim Programm beenden hab ich noch son Problem.
Als erstes beende ich ja alle Konnektoren usw.
Dann beende ich den MySQL-Dienst. Der stoppt auch.
Dann bekomme ich die Fehlermeldung 'Can't connect to MySQL-Server'
Is ja auch so. Soll ja so sein, nur will ich eben die Fehlermeldung nicht.
Achja und das Programm wird auch nicht geschlossen.....

Delphi-Quellcode:

procedure TMenue.BuendClick(Sender: TObject);
var st : integer;
begin
   st:=ServiceGetStatus(PChar(PC), PChar(Dienst));
   Datamodule1.CDS1.Active:=False;
   Datamodule1.CDS2.Active:=False;
   Datamodule1.SDS1.Active:=False;
   Datamodule1.SDS2.Active:=False;
   Datamodule1.DBConnect.Connected:=False;
   ServiceStop(nil, PChar(Dienst), 500);
   showmessage('Dienst wird beendet');
   Sleep(500);
   repeat
     st:=ServiceGetStatus(PChar(PC), PChar(Dienst));
   until st = 1;
        Application.Terminate;
end;