como comparar cada linea de un componente Memo1 con un componente ListBox1

[soma25]

hola

estoy haciendo un analizador sintactico, alguien me podria mostrar como comparo cada linea de un componente Memo1 con un componete ListBox1

ejemplo

Memo1 Listbox1
go go
scanf scanf

y asi sucesivamente

grax

atte

soma25

[Neftali [Germán.Estévez]]

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
    // Comparar linea a linea
    if (AnsiCompareText(Memo1.Lines[i], ListBox1.Items[i]) = 0) then begin
      ... iguales
    end
    else begin
      ... diferentes
    end;
  end;