Sichtbarkeit von Variablen bei Diensten

[Caps]

Ok, ich danke Dir erstmal, ich habe jetzt keine freien Funktionen und keine globalen Variablen mehr (habe mal eine Test-Unit gebaut, nur noch das Gerüst). Es funktioniert dennoch nicht (= showmessage bringt eine leere Box statt des Strings "gesetzt").
Ich bin vielleicht ein bisschen blind oder kapiere irgendeinen Wink nicht, wie gesagt ich hab jetzt (anscheinend) alles, was Du gesagt hast, befolgt (langsam glaub ich an Hexerei )...

Delphi-Quellcode:

unit Unit1; 


interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, 
  Inifiles; 

type 
  Tmvideo_sync = class(TService) 
    procedure ServiceExecute(Sender: TService); 
    procedure ServiceStart(Sender: TService; var Started: Boolean); 
    procedure ServiceStop(Sender: TService; var Stopped: Boolean); 
    procedure ServiceAfterUninstall(Sender: TService); 
    procedure ServiceBeforeUninstall(Sender: TService); 
    procedure ServiceAfterInstall(Sender: TService); 
  private 
    { Private-Deklarationen } 
  public 
    testi : string;
    function GetServiceController: TServiceController; override; 
    { Public-Deklarationen } 
  end; 


var 
   mvideo_sync: Tmvideo_sync; 


implementation 

{$R *.DFM} 


procedure ServiceController(CtrlCode: DWord); stdcall; 
begin 
  mvideo_sync.Controller(CtrlCode); 
end; 


function Tmvideo_sync.GetServiceController: TServiceController; 
begin 
  Result := ServiceController; 
end; 


procedure Tmvideo_sync.ServiceExecute(Sender: TService); 
var 
   h, m, s, ms : Word; 
begin 
while not terminated do begin 
      //ServiceThread.ProcessRequests(false); 
                        end; 
end; 


procedure Tmvideo_sync.ServiceStart(Sender: TService; var Started: Boolean); 
begin 
testi := 'gesetzt';
Started := true; 
end; 


procedure Tmvideo_sync.ServiceStop(Sender: TService; var Stopped: Boolean); 
begin 
showmessage(testi);
end; 

procedure Tmvideo_sync.ServiceAfterUninstall(Sender: TService); 
begin 
showmessage(testi);
end; 

procedure Tmvideo_sync.ServiceBeforeUninstall(Sender: TService); 
begin 
showmessage(testi);
end; 

procedure Tmvideo_sync.ServiceAfterInstall(Sender: TService);
begin 
showmessage(testi);
end; 

end.