SAS Log Utilityのバグ修正中, セルの色ずれ

ExcelにCRUD表をエクスポートしたとき、色がずれ問題を解消するために、Excelの書式設定を変更します。これまではExcelの条件付書式でr, w, rwの色付けをしていました。条件付書式をやめて、Excelの置換の機能でr, w, rw, dの書式を設定します。dのセルは個別に書式設定していましたが、置換したほうが処理時間が短いはずです。

なぜか、Delphi+Excel置換の例が少なくトライ&エラーで正しい、というか動くコードを書きました。覚書として下にメモしておきます。

oExl.ReplaceFormat.Clear;
oExl.ReplaceFormat.Interior.ColorIndex := 41;
oSheet.Cells[1, 1].CurrentRegion.Replace(AnsiChar('w'), AnsiChar('w'), xlWhole, xlByRows, True, True, false, True);