Zahlen aus Memo entfernen

[Nils_13]

Delphi-Quellcode:

var i, j : Integer;
begin
  // m1 = Memo1 ; m2 = Memo2
  for i := 0 to m1.Lines.Count - 1 do
  begin
    for j := 0 to m2.Lines.Count - 1 do
    begin
      if (m1.Lines[i] = m2.Lines[j]) then
        m1.Lines.Delete(m1.Lines.IndexOf(m2.Lines[j]));
    end;
  end;

Arghs, zu spät....