Applies toTDUnitDialog
DeclarationProcedure ClearResult;Implementation
procedure TDUnitDialog.ClearResult; begin if FTestResult <> nil then begin FTestResult.Free; FTestResult := nil; end; End;