переместите TONSampHisBuf(IN:= _Samp_His_Buf_.0, PT:=t#10s); в последнюю строчку кода