Source position: testinsightprotocol.pp line 134
function TestPhaseToString(
aValue: TTestPhase
):string;