Du vergleichst in der Schleife jedesmal die ersten 20 Zeichen des gesamten Textes mit den ersten 20 Zeichen des gesamten Textes. Wie soll das jemals <> werden?
Wahrscheinlich meinst etwas in der Art
Delphi-Quellcode:
vergleich1 := Copy(Memo2.Lines[i], 1, 20);
vergleich2 := Copy(Memo2.Lines[i-1], 1, 20);
Wobei du aufpassen musst wenn du unten angekommen bist, denn da gibt es irgendwann kein i-1 mehr.
Zitat:
Delphi-Quellcode:
if (vergleich1 <> vergleich2) then begin
Memo2.Lines[i] := '#13#10';
Damit würdest du die aktuelle Zeile mit einer Leerzeile überschreiben, also den bisherigen Inhalt entfernen.