Items einer CheckListBox mit Strings eines Memos abgleichen

[kingflo]

Hallo erstmal...

Ich bräuchte leider etwas hilfe. Ich möchte gerne die prüfen, welche strings in Memo4 stehen, und wenn ein String von memo4 auch als Item in einer ChecklistBox existiert, dann soll dieses Item auf checked gesetzt werden.
Aber ich bekomme das Irgendwie net so hin.
Ich habe schon tausend mal meine Schleifen um strukturiert aber es klappt nicht.
der letzte Versuch sah so aus.

Code:

 i:=0; y:=0;
 while i<=AssoBox.Items.Count-1 do
 begin

  while y <=memo4.Lines.Count-1  do
  begin
    if AssoBox.Items.Strings[i]=memo4.Lines.Strings[y] then
    assoBox.Checked[i]:=true;
    y:=y+1;
  end;

  i:=i+1;
 end;