Die Lösung war doch schon fast gefunden, ich mache es mit den Timern immer so:
procedure Tmainform.Timer1Timer(Sender: TObject);
Delphi-Quellcode:
begin
try
if timer1.Tag>0 then exit;
timer1.Tag:=1;
Tu Was ....
finally
timer1.Tag:=0;
end;
Damit kann man Mehtfachaufruf sicher verhindern.
Gruß