Delphi 2009 и Excel, поменяли способ индексации ячеек

[Valio]

Работал я в Delphi 7, писал программу редактор техпроцессов, которая создавала отчёт в Excel. Но столкнувшись с Юникодом, я переписал её на Delphi 2009. В результате чего столкнулся с интересной вещью.

Вот так вот выводится инфа в Excel.

Uses ComObj

Var XL: variant; // Переменная в которой создаётся обьект EXCEL
Begin
XL := CreateOleObject('Excel.Application'); // Обьект EXCEL
XL.DisplayAlerts := True; // Чтоб не задавал вопрос о сохранении документа
XL.WorkBooks.Add; // Книжка
XL.Visible := true; // Видимая книжка
// Заполняем (так не работает)
XL.WorkBooks[1].WorkSheets[1].Cells[1, 'A'] := 'Раз';
XL.WorkBooks[1].WorkSheets[1].Cells[1, 'B'] := 'Два';
XL.WorkBooks[1].WorkSheets[1].Cells[1, 'C'] := 'Три';
// Заполняем (так работает)
XL.WorkBooks[1].WorkSheets[1].Cells[2, 1] := 'Раз';
XL.WorkBooks[1].WorkSheets[1].Cells[2, 2] := 'Два';
XL.WorkBooks[1].WorkSheets[1].Cells[2, 3] := 'Три';
End;

Но 2009 Делфи мне преподнесла сюрприз, отказавшись принимать старую версию индексации ячеек. Теперь она работает только с цифрами. Ради интереса проверил в 7 версии. Всё рабоает

Причём никаких ошибок не выдаёт. Просто ячейки не заполняются.

Эт я чтото не так сделал или мне придётся написать функцию аля "буква - число" чтоб мозг себе не ломать?

Честно говоря очень странно всё это....

[Serge_Bliznykov]

чисто прикола ради, а проверьте, плиз:

var Addr1 : AnsiString;
...
Addr1 := 'A';
XL.WorkBooks[1].WorkSheets[1].Cells[1, Addr1] := 'Раз';

ну и способ два:

XL.WorkBooks[1].WorkSheets[1].Cells[1, AnsiString('A')] := 'Раз';

p.s. подозреваю, что дело как раз в Unicode строчках...

[Valio]

Хороший прикол, оба варианта работают ))
Даже если просто var Addr1 : String;

Осталось только строчек 50 мне в программе изменить