Как в ячейке Excel сделать надстрочный шрифт?

[Sony]

Подскажите, как из delphi для ячейки(точнее для части ячейки) Excel установить надстрочный шрифт или верхний индекс?

[_SERGEYX_]

Uses ComObj;

var XL: variant;
begin
  XL := CreateOleObject('Excel.Application');
  XL.DisplayAlerts := false;
  XL.WorkBooks.Open('c:\123.xls');
  XL.Visible := true;
  XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Superscript := True;
  XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Subscript := False;
end;

А вообще, код для Excel можно получать так: включаем запись макроса, производим все действия, которые нужно сделать из Дельфи, выключаем запись и получаем готовый код на Бейсике... ну, а дальше - дело техники.

[Sony]

Спасибо, получилось.
Вообще записывала в Excel макрос, но там надстрочный шрифт через Underline
Font.Underline = xlUnderlineStyleNone
в Deiphi просто так перевести не получилось