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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:

//Konvertiert Html zu Text
function Convert(Filename:string):string;
var
  IDoc: IHTMLDocument2;
  Strl: TStringList;
  sHTMLFile: string;
  v: Variant;
  Links: IHTMLElementCollection;
  i: Integer;
  Link: IHTMLAnchorElement;
begin
    sHTMLFile := FileName;
    Strl := TStringList.Create;
    try
      Strl.LoadFromFile(sHTMLFile);
      Idoc := CreateComObject(Class_HTMLDOcument) as IHTMLDocument2;
      try
        IDoc.designMode := 'on';
        while IDoc.readyState <> 'complete' do
          Application.ProcessMessages;
        v := VarArrayCreate([0, 0], VarVariant);
        v[0] := Strl.Text;
        IDoc.Write(PSafeArray(System.TVarData(v).VArray));
        IDoc.designMode := 'off';
        while IDoc.readyState <> 'complete' do
          Application.ProcessMessages;
        Form1.Memo1.Lines.Text := IDoc.body.innerText;
      finally
        IDoc := nil;
      end;
    finally
      Strl.Free;
    end;
end;

//Starten der Suche nach den Liedertext
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : integer;
begin
//Leerzeichen zu "+"
for a := 0 to Length(Edit1.Text) do
begin
Edit1.SelStart := a;
Edit1.SelLength := 1;
if Edit1.SelText = ' ' then Edit1.SelText := '+';
end;

//Such Ergebniss in ein Memo herunterladen....
Memo2.Text := http.Get('http://www.i-songtexte.com/index.php?action=search&q=title&string='+Edit1.Text);

//for schleife dursucht Such Ergebnisse im Memo
for a := 5600 to Length(Memo2.Text) do
begin
Application.ProcessMessages;
Progressbar1.Max := Length(Memo2.Text);
PRogressbar1.Position := a;

//suche nach href="....
Memo2.SelStart := a;
Memo2.SelLength := Length('href="http://www.i-songtexte.com/');

//wenn gefunden dann....
if Memo2.SelText = 'href="http://www.i-songtexte.com/' then
begin

//2 Schleife suche nach Ende vom Link = ">
for b := a+Length('href="http://www.i-songtexte.com/') to a+200 do
begin
Application.ProcessMessages;
Progressbar1.Max := a+200;
PRogressbar1.Position := b;
Memo2.SelStart := b;
Memo2.SelLength := Length('">');

//Gefunden....
if Memo2.SelText = '">' then
begin

//Link markieren
Memo2.SelStart := a+Length('href="');
MEmo2.SelLength := b-(a+Length('href="'));

//Link in Memo laden und convertieren
try
Memo1.Text := http.Get(Memo2.SelTexT);
Memo1.Lines.SaveToFile('Lied.tmp');
convert('Lied.tmp');
Memo1.SelStart := Length(Memo1.Text)-634;
Memo1.SelLength := 634;
Memo1.SelText := '';
except
ShowMessage('Keinen Songtext gefunden!');
exit;
end;
exit;
end;
end;

end;					

1:
2:
3:
4:
5:

Memo2.SelStart := b;  
Memo2.SelLength := Length('">');  

//Gefunden....  
if Memo2.SelText = '">' then					

1:
2:

if Pos('">', Memo2) > 0 then
  // Gefunden