1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var
  Adresse : string;
  Ort     : string;
  Mem     : TMemoryStream;
  PNGBild : TPngImage;
begin
  Ort := 'Frankfurt%20am%20Main';
  Adresse := 'http://openweathermap.org/data/2.5/weather?q='
             + Ort
             + '&mode=xml'
             + '&units=metric'
             + '&lang=de';
  Mem := TMemoryStream.Create;
  try
    IdHttp.Get(Adresse, Mem);
    if Idhttp.ResponseCode = 200 then // 200 = okay
      begin
        Mem.Position := 0;
        Memo1.Lines.LoadFromStream(Mem);
      end
    else
      ShowMessage('Fehler beim Abruf der Wetterdaten!');
  finally
    Mem.Free;
  end;                    

1:

Memo1.Lines.LoadFromStream(Mem, TEncoding.UTF8);                    

1:
2:
3:
4:

Mem.Position := 0;
Memo1.Lines.LoadFromStream(Mem);
Mem.Position := 0;
Memo2.Lines.LoadFromStream(Mem, TEncoding.UTF8);                    

1:
2:
3:
4:
5:

  ReceivedText := IdHttp.Get(Adresse);
  if Idhttp.ResponseCode = 200 then // 200 = okay
    Memo1.Lines.Text := ReceivedText
  else
    ShowMessage('Fehler beim Abruf der Wetterdaten!');