Unterschiede TTimer zwischen Delphi 7 und 2010?

[Photoner]

Gib doch testweise dem TSaveTimer eine "Aktiv" Property und setze das Enabled der TTimer auf Enabled.

In der Prozedur

Delphi-Quellcode:

procedure TSavetimer.SaveTimerEvent(sender: TObject);
var tr: TSaveThread;
begin
if not Aktiv then exit;

Aktiv := False;
.
.
.
Aktiv := True;
end

hat zwei Vorteile. Du kannst sehen ob die TTimer aktiv sind und es existiert immer nur ein Thread.