como identificar ocr usando o office ( delphi )

function rtnocr(ARQUIVO: STRING): STRING;
var
midoc,miword: OleVariant;
s: string;
i: integer;
begin
midoc := CreateOleObject('MODI.Document');
midoc.create(ARQUIVO);
midoc.images[0].ocr(22,0,0);
s := '';
for i := 0 to midoc.images[0].layout.words.count-1 do
begin
miword := midoc.images[0].layout.words[i];
s := s+' '+miword.text;
end;
result := s;
end;

exemplo de uso
ShowMessage( rtnocr('C:\texto.tif') );

explicacao
o delphi usara a biblioteca do office xp ou 2007 para fazer a leitura da imagem passada e mostrar o valor