[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. Пробовал аналогичным способом, но моих знаний и мастерства не хватило, так как я можно сказать новичок в этих делах. Помогите кто чем может добрые люди!

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

Код:

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" , подскажите в чем дело?