Error с кракозябрами

[sign]

Вот, так и пишет и не первый раз и на всяких версиях FPC и IDE.

M.png

В данном конкретном случае на вот этом - где идёт неправильное обращение к ячейке.

Код: Выделить всё

function TDM.LoadOrder2(const aFileName: String): TStringList;
var Excel, Sheet: OleVariant;
    V1, V2, V3: String;
begin
  Result := nil;
  Excel:=CreateOLEObject('Excel.Application');
    try
      Excel.WorkBooks.Open(WideString(UTF8Decode(aFileName)));
      Excel.Visible:=false;
      V1 := Excel.Range('B21');
    except
      on E:EOleException do
        ShowMessage(UTF8Encode(E.Message));
    end;
end;


[vada]

Вот с этим UTF8Encode и UTF8Decode я всегда путаюсь.
Появились кракозябы значит поменять Encoder на Decodr, а может вообще перекодировать не надо.
ЗЫ.Реально не уследить в какой кодировке строка находится.