NewerVersion

function NewerVersion(

  Q1: TVersionQuad;

  Q2: TVersionQuad

):Boolean;

function NewerVersion(

  V1: TProgramVersion;

  V2: TProgramVersion

):Boolean;

function NewerVersion(

  V1: string;

  V2: string

):Boolean;