Использовать внешнюю функцию ToString в наследнике класса TObject

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <iostream.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
bool NextPermutation(int* a, int n) {
        int j = n-2;
        while (j!=-1 && a[j] > a[j+1])
                j--;
        if (j == -1)
                return false;
        int k = n - 1;
        while (a[j] > a[k])
                k--;
        swap(a[j],a[k]);
        int l = j + 1, r = n - 1;
        while (l<r)
                swap(a[l++],a[r--]);
        return true;
}
 
int MinDistance(int* a, int n, int* arr, int* result1, int* result2, int eps)
{
        int i, middle, summ=0;
        for(i=0; i<n; i++)
        {
                summ+=arr[a[i]-1];
        }
        middle=summ/2;
        summ=0;
        i=0;
 
        while(summ<middle)
        {
                summ+=arr[a[i]-1];
                i++;
        }
        if(eps>summ)
        {
                eps=summ;
                for(int j=0; j<i; j++)
                {
                        result1[j]=arr[a[j]-1];
                        result2[j]=0;
                }
                for(int k=i; k<n; k++)
                {
                        result2[k]=arr[a[k]-1];
                        result1[k]=0;
                }
                return eps;
        }
        else
                return eps;
}
 
AnsiString ToString(int* a,int n)
{
        AnsiString ret = "";
        for(int i=0;i<n;i++)
                ret += IntToStr(a[i]) + " ";
        return ret;
}
 
AnsiString ToString1(double* a,int n)
{
        AnsiString ret = "";
        for(int i=0;i<n;i++)
                ret += FloatToStr(a[i]) + " ";
        return ret;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int n,eps=0;
        n=StrToInt(Edit1->Text);
        int* a = new int[n];
        int* arr = new int[n];
        int* result1 = new int[n];
        int* result2 = new int[n];
        for(int i=0; i<n; i++)
        {
                a[i]=i+1;
                arr[i] = rand() % 30;
                eps+=arr[i];
                result1[i]=0;
                result2[i]=0;
        }
        do
        {
                eps=MinDistance(a,n,arr,result1,result2,eps);
        }while(NextPermutation(a,n));    
        ListBox2->Items->Add(ToString(arr,n));        // Extra parameter in call to _fastcall TObject::ToString()
        ListBox3->Items->Add(ToString(result1,n));    // Extra parameter in call to _fastcall TObject::ToString()
        ListBox4->Items->Add(ToString(result2,n));      // Extra parameter in call to _fastcall TObject::ToString()
}

        ListBox2->Items->Add(::ToString(arr,n));        // Ok
        ListBox3->Items->Add(::ToString(result1,n));    // Ok
        ListBox4->Items->Add(::ToString(result2,n));      // Ok

ListBox2->Items->Add( ::ToString(arr, n) );

namespace MyStringSpace
{
  AnsiString ToString(int* a,int n)
  {
  ...
  }
}
...
ListBox2->Items->Add( MyStringSpace::ToString(arr, n) );