Замена текста в документе Excel

procedure TForm1.Button1Click(Sender: TObject);
VAR EX:variant;
begin
ex:=CreateOleObject ('Excel.Application');
ex.Visible:=true;
Ex.WorkBooks.open('D:\xls');
end;
function FindAndReplace(find_,rep_:string):boolean;
begin
FindAndReplace:=False;
if find_<>'' then  begin
range:=e.range['A1:EL146'].Replace(what:=find_,Replacement:=rep_);
try
FindAndReplace:=true;
except
FindAndReplace:=False;
end;end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var a_:integer; a:boolean;
begin
e:=CreateOleObject ('Excel.Application');
e.Visible:=true;
E.WorkBooks.open('D:.xls');
for a_:=1 to 2 do FindAndReplace('И'+INTTOSTR(a_)+'&',OT.Text[a_]);
for a_:=1 to 4 do FindAndReplace('З'+INTTOSTR(a_)+'&',Edit2.Text[a_]);
FindAndReplace('&НИФО&',edit1.Text);
FindAndReplace('&ДАТА&',edit3.Text);
FindAndReplace('&КМн&',edit4.Text);
FindAndReplace('&ЕИ&',edit5.Text);
FindAndReplace('&СТИ&',edit6.Text);
FindAndReplace('&ОКБ&',edit7.Text);
FindAndReplace('&КИБ&',edit8.Text);
end;