Кодоперлы.

И такое бывает %)

function TRePolSng.Event_On(ticks: cardinal): boolean;
begin
...
  // ACHTUNG!!! не сломайте моск =)
  FNRZ_EKVIVAL := ( not Power )and( Power );
...
end;