Поиск в Excel-e

[Константин!]

Всем спасибо заработало

OpenBookXLS(OpenDlg.OpenFile('фаил','',2,'',0),'_');
clear(XlRange);
XlRange := XlWrkSht.Range('11:11');
XlRange.Find('счет 501').activate;
adress:=XlApp.ActiveCell.Offset(0, 0).Address;