Komisches Verhalten beim Listbox durchsuchen

[DeddyH]

Trenne Logik und Darstellung:

Delphi-Quellcode:

procedure Log(s: string, const sl: TStrings);
begin
  try
    sl.Add(DateTimeToStr(Now)+' | '+s);
  except
  end;
end;

procedure TForm6.Wuppdi;
begin
  Log('FooBar',Memo1.Lines);
end;