Поиск данных в Excel и перенос в шаблон Power Point

[meshkale]

Ребятушки всем привет, прошу помощи или наставления на путь истинный!
С помощью бубнов я намуил вот такой код который ищет в PP определенный данные( в данном случае имеется только одна ссылка, но их будет много ) и заменяет их на другие.

var
ppApp:variant;
ppPres, ppSlide, ppShape : Variant;
i, j : integer;
s : string;
procedure TForm1.Button1Click(Sender: TObject);

procedure FindAndReplace(ppPres: Variant; SearchStr, ReplaceStr: string);
begin
for i := 1 to ppPres.Slides.Count do
begin
ppSlide := ppPres.Slides.Item(i);
for j := 1 to ppSlide.Shapes.Count do
begin
ppShape := ppSlide.Shapes.Item(j);
s := ppShape.TextFrame.TextRange.Text;
s := StringReplace(s, SearchStr, ReplaceStr, [rfReplaceAll]);
ppShape.TextFrame.TextRange.Text := s;
end;
end;
end;
begin
ppApp:=CreateOleObject('PowerPoint. Application');
ppPres:= ppApp.Presentations.Open('D:\p.ppt' , False, False, True);
ppApp.visible:=true;
FindAndReplace(ppPres, '%сылка%', 'привет');
end;

end.

Но ни как не получается сделать так, чтобы определенные данные искались в Excel и вставлялись в эти ссылки в PP. Пробовал аналогичным способом, но моих знаний и мастерства не хватило, так как я можно сказать новичок в этих делах. Помогите кто чем может добрые люди!

[meshkale]

Ребят вот сам попробовал

var
 ppApp,exel,ex:variant;
  ppPres,ppSlide,ppShape: Variant;
  i,j: integer;
  s,e: string;
procedure TForm1.Button1Click(Sender: TObject);
 
procedure FindAndReplace(ppPres: Variant; SearchStr, ReplaceStr: string);
 
begin
  for i:= 1 to ppPres.Slides.Count do
  begin
    ppSlide:= ppPres.Slides.Item(i);
    for j:= 1 to ppSlide.Shapes.Count do
    begin
      ppShape:= ppSlide.Shapes.Item(j);
      s:= ppShape.TextFrame.TextRange.Text;
      s:= StringReplace(s, SearchStr, ReplaceStr, [rfReplaceAll]);
      ppShape.TextFrame.TextRange.Text:=s;
      end;
  end;
end;
begin
  exel:=CreateOleObject('Excel.Application');
  exel.Workbooks.Open('D:\e.xls');
  exel.visible:=true;
 
  ppApp:=CreateOleObject('PowerPoint.Application');
  ppPres:= ppApp.Presentations.Open('D:\p.ppt', False, False, True);
  ppApp.visible:=true;  
  e:=exel.Range['a1'];
  FindAndReplace(ppPres, '%ссылка%', e);
end;
end.

но выдает ошибку (прикрепил рисунок) и выделяет " e:=exel.Range['a1'];" эту строку, да и в билде пишет "for loop control variable must be simple local variable" , подскажите в чем дело?

[meshkale]

Один человек на другом форуме сказал что у него все работает, так что кому надо пользуйтесь.