Es sencillo; Tanto la propiedad Lines de
TMemo, como la propiedad Items de
TListBox son
TStrings.
Basta con que hagas un recorrido por ambas y compares con
AnsiCompareStr o
AnsiCompareText.
Algo así:
Código Delphi
[-]
for i :=0 to (MEmo1.Lines.Count - 1) do begin
if (AnsiCompareText(Memo1.Lines[i], ListBox1.Items[i]) = 0) then begin
... iguales
end
else begin
... diferentes
end;
end;