Versi To Int

//dipakai di check update https://pastebin.com/fw8TBbRg;
function  VersionToInt(AVersion: String): Integer;
var
  lst: TStrings;
  str: string;
begin
  lst := TStringList.Create;
  lst.Delimiter     := '.';
  lst.DelimitedText := AVersion;

  try
    str := format('%s%s%s%s',
              [RightStr('00'  + lst[0], 2),
               RightStr('00'  + lst[1], 2),
               RightStr('00'  + lst[2], 2),
               RightStr('000' + lst[3], 3)]
           );
  except

  end;
  result := StrToInt64Def(str, 0);
end;