1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
begin
/// Erzeuge eine StringList...
Quellstream := TStringList.Create;
Try
/// Lade den Quellcode in die Stringlist und nehme dazu die URL aus dem Edit-Feld...
Quellstream.Text := IdHTTP1.Get(Edit1.Text);
/// Falls das Memo bereits gefüllt ist, leere es zur Sicherheit...
Memo1.Clear;
/// Zeige mir den Quelltext zur Kontrolle im Memo an...
Memo1.Text := Quellstream.Text;
Finally
/// Gebe die Stringlist wieder frei...
Quellstream.Free;
End;
end;                    

1:

Quellstream.Text := IdHTTP1.Get(TIdUri.UrlEncode(Edit1.Text));                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
begin
/// Erzeuge eine StringList...
Quellstream := TStringList.Create;
Try
/// Lade den Quellcode in die Stringlist und nehme dazu die URL aus dem Edit-Feld...
Quellstream.Text := IdHTTP1.Get(TIdUri.UrlEncode(Edit1.Text)); -> in Edit1.Text steht die URL drin
/// Falls das Memo bereits gefüllt ist, leere es zur Sicherheit...
Memo1.Clear;
/// Zeige mir den Quelltext zur Kontrolle im Memo an...
Memo1.Text := Quellstream.Text;
Finally
/// Gebe die Stringlist wieder frei...
Quellstream.Free;
End;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

SR := Edit1.Text;
SR := StringReplace(SR, 'ä', '%C3%A4', [rfReplaceAll]);
SR := StringReplace(SR, 'ö', '%C3%B6', [rfReplaceAll]);
SR := StringReplace(SR, 'ü', '%C3%BC', [rfReplaceAll]);
SR := StringReplace(SR, 'Ä', '%C3%84', [rfReplaceAll]);
SR := StringReplace(SR, 'Ö', '%C3%96', [rfReplaceAll]);
SR := StringReplace(SR, 'Ü', '%C3%9C', [rfReplaceAll]);
SR := StringReplace(SR, '"', '%34', [rfReplaceAll]);
URL := SR;
Memo1.Text := idHTTP1.Get(TIdURI.URLEncode(URL));                    

1:
2:
3:
4:
5:
6:
7:

var
  sr: string;
begin
  SR:= Edit1.Text;
  sr:= TIdURI.URLEncode(SR);
  SR:= StringReplace(SR, '"', '%22', [rfReplaceAll]);
  Memo1.Text:= idHTTP1.Get(SR);