[Gudzik11]

подскажите можно ли этот код

Код:

    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');
    
    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;

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


     XMLDocument1.Active := false;

как то поместить в функцию или в процедуру чтоб я мог потом её вызывать когда мне это нужно