AnsiString 데이터를 TVariant 로 넘길시에 스트링으로 넘기고 싶습니다.

AnsiString 데이터가 알파벳이나 문자면 상관이 없는데, "0000"과 같은 데이터는 숫자 '0'으로 데이터가 넘어가 버립니다..

즉

Edit1->Text = "0000";
ExcelWorksheet->Cells->set_Item((TVariant) 1,(TVariant)"A", (TVariant)Edit1->Text);


이런식으로 해버리면 데이터가 '0' 으로 넘어가 버립니다.
스트링 그대로 "0000"으로 넘어가게 할 수는 없을까요...

(TVariant)"0000"  으로 넘기면 되지만, Edit1->Text는 사용자 입력을 받는 variable이라서 그렇게 처리할 수도 없고.... 이것저것 해봐도 뜻대로 되지를 않네요..

도움을 부탁드립니다. (__)