こうかな
ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Worksheets->get_Item(TVariant("Sheet1")));
ExcelWorksheet1->Range[TVariant("A1")][TVariant("A1")]->set_Value(TVariant(Edit1->Text));

なんかItemやValueのプロパティが用意されてないね