التحويل من Hex To Base64 Delphi 7

[Eagle]

سلام عليكم 
مساء الخير للجميع 
ارجوا المساعدة في تحويل من Hex  إلى bass64 دلفي 7
 مثال Hex  010C426F6273205265636F726473020F3331303132323339333530303030330314323032322D30342D32355431353A33303A30305A0407313030302E303005063135302E3030

Base64 يكون AQxCb2JzIFJlY29yZHMCDzMxMDEyMjM5MzUwMDAwMwMUMjAyMi0wNC0yNVQxNTozMDowMFoEBzEwMDAuMDAFBjE1MC4wMA==

لدي مثال على C#  يعمل وأريد عمله على Delphi7

كود :

public static string HexToBase64(string strInput)         {             try             {                 var bytes = new byte[strInput.Length / 2];                 for (var i = 0; i < bytes.Length; i++)                 {                     bytes[i] = Convert.ToByte(strInput.Substring(i * 2, 2), 16);                 }                 return Convert.ToBase64String(bytes);             }             catch (Exception)             {                 return "-1";             }         }