[angvelem]

Если g, нужно всё-таки вернуть, сделай примерно так:

Код:

function MyFunc(S : String) : String;
begin
  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 + ' °С';
  Result := XMLDocument1.DocumentElement.ChildNodes['current'].ChildNodes['pict'].Text;
  XMLDocument1.Active := False;
end;