1:

memo1.saveToFile("index.html");					

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

//am besten lokal deklarieren
var i: integer;

for i := 0 to memo1.lines.count - 1 do
begin
  //tue hier, was auch immer du willst
end;					

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

var i: integer; //deine Zählervariable für die schleife

//Schleife beginnt bei 1 (1. Zeile im Memo und geht bis zur letzten des selbigen)
for i:= 1 to deinMemo.lines.count do
begin
 //mach irgendwas
end;					

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

var i: integer; //deine Zählervariable für die schleife

//Schleife beginnt bei 1 (1. Zeile im Memo und geht bis zur letzten des selbigen)
for i:= 1 to deinMemo.lines.count-1 do
begin
 //mach irgendwas
end;					

1:
2:
3:

//bei der bearbeitung in der schleife einfach
memo.lines.strings[i-1];
//wenn zu drauf zugreifst^^					

1:
2:
3:

for i := 0 to count -1 do ;
//beginnt bei 0 
//endet bei demnach bei Länge -1					

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:

procedure TForm37.btn1Click(Sender: TObject);

const
  HTMLSpecialChars: array[0..102] of char = (
    '&', '<', '>', ' ', '©', '®', '™', '«', '»', '¡', '¿', 'À', 'à', 'Á', 'á',
    'Â', 'â', 'Ã', 'ã', 'Ä', 'ä', 'Å', 'å', 'Æ', 'æ', 'Ç', 'ç', 'Ð', 'ð', 'È',
    'è', 'É', 'é', 'Ê', 'ê', 'Ë', 'ë', 'Ì', 'ì', 'Í', 'í', 'Î', 'î', 'Ï', 'ï',
    'Ñ', 'ñ', 'Ò', 'ò', 'Ó', 'ó', 'Ô', 'ô', 'Õ', 'õ', 'Ö', 'ö', 'Ø', 'ø', 'Ù',
    'ù', 'Ú', 'ú', 'Û', 'û', 'Ü', 'ü', 'Ý', 'ý', 'ÿ', 'Þ', 'þ', 'ß', '§', '¶',
    'µ', '|', '±', '­', '¨', '¸', 'ª', '°', '¬', '–', '¯', 'º', '¹',
    '²', '³', '¼', '½', '¾', '×', '÷', '¢', '£', '¤', '¥', '€', '“', '"', '”');

  HTMLCharacterCodes: array[0..102] of String[8] = (
    '&','>','<',' ', '©', '®', '™', '«',
    '»', '¡', '¿', 'À', 'à', 'Á',
    'á', 'Â', 'â', 'Ã', 'ã', 'Ä',
    'ä', 'Å', 'å', 'Æ', 'æ', 'Ç',
    'ç', 'Ð', 'ð', 'È', 'è', 'É',
    'é', 'Ê', 'ê', 'Ë', 'ë', 'Ì',
    'ì', 'Í', 'í', 'Î', 'î', 'Ï',
    'ï', 'Ñ', 'ñ', 'Ò', 'ò', 'Ó',
    'ó', 'Ô', 'ô', 'Õ', 'õ', 'Ö',
    'ö', 'Ø', 'ø', 'Ù', 'ù', 'Ú',
    'ú', 'Û', 'û', 'Ü', 'ü', 'Ý',
    'ý', 'ÿ', 'Þ', 'þ', 'ß', '§', '¶',
    'µ', '¦', '±', '·', '¨', '¸', 'ª',
    'º', '¬', '­', '¯', '&def;', '¹', '²', '³',
    '¼', '½', '¾', '×', '÷', '¢',
    '£', '¤', '¥', '€', '“', '"', '”');

function ReplaceHTML(uNormalText: String): String;
var
  i: Integer;
begin
  for i := 0 to High(HTMLSpecialChars) do
    uNormalText := StringReplace(uNormalText, HTMLSpecialChars[i], HTMLCharacterCodes[i],
      [rfReplaceAll]);
  Result := uNormalText;
end;

begin
  memText.Text := ReplaceHTML(memText.Text);
end;