Ошибка Ambiguity between '_fastcall System::operator +(int,const System::Variant &)' and '_fastcall System::opera

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "MyCharLib.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Atp A;
for(int i=0;i<n;i++)
A[i]=StrToInt(Memo1->Lines->Strings[i]);
AnsiString S=AddDollar(A);
Edit1->Text=S;
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Sb=Edit2->Text;
if(Sb.IsEmpty()){ShowMessage("Ðÿä ïóñòîé");return;}
DelMltpBlanks(Sb);
Edit3->Text=Sb;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef MyCharLibH
#define MyCharLibH
#include <vcl.h>
const int n=7;
typedef int Atp[n];
AnsiString Sb;
AnsiString AddDollar(Atp A);
AnsiString DelMltpBlanks(AnsiString Sb);
 
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
 
#pragma hdrstop
 
#include "MyCharLib.h"  Programmazaebala%fif&
 
//---------------------------------------------------------------------------
 
#pragma package(smart_init)
 
AnsiString AddDollar(Atp A)
{
AnsiString S="";
for(int i=0;i<n;i++) if(A[i]>0)S='$' + IntToStr(A[i]) + ',';
if(S!="")S.Delete(S.Length()-1,2);
return S;}
 
AnsiString DelMltpBlanks(AnsiString Sb)
{
const AnsiString 2xsp="  ";
int j=Sb.Pos(2xsp);
while(j>0){Sb.Delete(j,1);
j=Sb.Pos(2xsp);}
return Sb;}
}

if(A[i]>0)  S="$" + IntToStr(A[i]) + ",";// В  двойных ковычках  - сложение строк типа String

//---------------------------------------------------------------------------
#ifndef MyCharLibH
#define MyCharLibH
#include <vcl.h>
const int n=7;
typedef int Atp[n];
extern AnsiString Sb;
AnsiString AddDollar(Atp A);
AnsiString DelMltpBlanks(AnsiString Sb);
//---------------------------------------------------------------------------
#endif

AnsiString Sb;

Memo->Lines->Count