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

With Source do
Begin
Add(http1.Get('www.test.de')); //Der HTML Code einer Webseite wird ausgelesen

//->Folge der Code wird in eine Zeile geschrieben wodurch ein Durchsuchen mit For i:=0 to ... nicht
//möglich wird

//Lösungsansatz
//in Datei schreiben & wieder auslesen
SaveToFile('c:\test.txt');
clear;
LoadFromFile('c:\test.txt');

End;
source.Free;					

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

var sL : TStringList;
    sStr : TStringStream;
begin
  sL := TStringList.Create;
  sStr := TStringStream.Create('Hallo'+#13#10+'Tristan');
  try
    sL.LoadFromStream(sStr);
    showmessage(sL[0]);
    showmessage(sL[1]);
  finally
    sL.Free;
    sStr.Free;
  end;