Write：
AEvent.wait(INFINE);
ALock.Enter;
AVar := AValue;
ALock.Leave;


Read：
AEvent.Reset;
ALock.Enter;
BVar := AVar;
ALock.Leave;
AEvent.Set;