Threads: Wie globale Int64-Variable sicher inkrementieren?

[supermuckl]

sichere das mit critical section ab

oncreate(form1):
sect := Tcriticalsection.create;


sect.enter;
inc(bla);
sect.leave;


onclose(form1):
sect.free;