Service & on Execute

[alfold]

Hier noch ein simpler Vorschlag
nimm deinen timer, im timer dann:

Delphi-Quellcode:

Procedure Timer
begin
   inc(a);
end;


procedure Ttest.ServiceExecute(Sender: TService);
begin
  while not terminated do
  begin
    if a >= 10 then
    begin 
       Beep; //Oder ruf hier DEINE Methode auf
       a:= 0;
    end;
 end;
end;

Gruss alfold