[Gudzik11]

чёт не разберусь
вот моя процедура

Код:

 procedure TForm1.Pogoda(Sender: TObject);
  begin

    {Âûçâàòü ïðîöåäóðó
       Pogoda(NIL);}
     {Ñêà÷èâàåì XML}
    GetDir(0,s);
    memo2.Text:=Utf8ToAnsi(IdHTTP1.Get('http://xml.weather.co.ua/1.2/forecast/19?dayf=5&userid=yoursite_com'));
    Memo2.Text:=Memo1.Text + Memo2.Text + Memo3.Text ;
    Memo2.Text:=Replace(Memo2.Text,'<?xml version="1.0" encoding="UTF-8"?>','');
    Memo2.Lines.SaveToFile(s+'\1.xml');
    {îòêðûâàåì XML}
    XMLDocument1.FileName:='1.xml';
    XMLDocument1.Active := true;
    Memo4.Text:=XMLDocument1.xml.Text ;
     Label8.CAPTION :='ïîãîäà â ' + XMLDocument1.DocumentElement.ChildNodes['city'].ChildNodes['name'].Text + 'å';
     Label9.CAPTION := XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['t'].Text+' °Ñ';
     g:= XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['pict'].Text;

  
     if FileExistc ('clipart\'+g) then
       begin
       RxGIFAnimator1.Image.LoadFromFile ('clipart\'+g);
       end;


     XMLDocument1.Active := false;
   Label11.Caption := DayOfWeekStr(Date);
   Label12.Caption := DayOfWeekStr(Date+1);
   Label13.Caption := DayOfWeekStr(Date+2);
   Label14.Caption := DayOfWeekStr(Date+3);
   Label15.Caption := DayOfWeekStr(Date+4);
  end;

пытаюсь проверить есть ли картинка если да выводим

Код:

 if FileExistc ('clipart\'+g) then
       begin
       RxGIFAnimator1.Image.LoadFromFile ('clipart\'+g);
       end;

а мне выдаёт ошибку

Variable 'i' is declared but never used in 'Replace'

а если просто ставлю

Код:

RxGIFAnimator1.Image.LoadFromFile ('clipart\'+g);

то всё работает
подскажите в чём причина?