1:

SelPos := Pos(FindText, MemoHTML.Lines.Text);                    

1:

bearbeiteterString.replace(#13#10,'');                    

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

Function ZapWhiteSpaces (Const aString : String) : String;
Var
  n : Integer;
  c : Char;

Begin
  SetLength (Result, Length (aString));
  n := 0;
  for c in aString do
// Entweder kein Leer- oder Steuerzeichen, oder wenn es eins ist,
// darf das Zeichen davor keins sein. Das 'n>0' ist wichtig, weil
// sonst auf Result[0] zugegriffen würde => Peng.
    if (c > ' ') or ((n > 0) and (Result[n] <> ' ')) then begin
      Inc(n);
      Result[n] := c;
    end;
  SetLength (Result, n);                                
End;