Download this file
1 2 3
TotalAsserts := TotalAsserts + 1; AssertResults[TotalAsserts].Actual := F_AnyToUnionValue(AnySize := ActualSize, AnyTypeClass := ActualTypeClass, AnyValue := ActualValue); AssertResults[TotalAsserts].Message := Message;