type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Edit2: TEdit;
   Button1: TButton;
   e: TExcelApplication;
   procedure Button1Click(Sender: TObject);
   end;

var
 Form1: TForm1;
 Findt, sheet:variant;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
e.Workbooks.Open(getcurrentdir+'\1.xls',emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,empty param,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptypar am,0);
sheet:=e.workbooks[1].worksheets['лист1'];
Findt:=sheet.cells.find(what:='5');
edit2.Text:=findt.text;
end;

sheet.cells(findt.Row, findt.Column - 1).Activate

cells[findt.Row, findt.Column - 1]

sheet.cells(findt.Row, findt.Column - 1).Value

(sheet.cells(findt.Row, findt.Column - 1) as _Range).Value