TStringList ignoriert doppelte Einträge nicht

[Matze]

Nur manuell, indem du vor dem Einfügen selbst in einer Schleife prüft, ob der Eintrag bereits enthalten ist.

Also grob aus dem Kopf:

Delphi-Quellcode:

Included := false;
for i := 0 to Liste.Count - 1 do
begin
  if Liste[i] = 'Eintrag 1' then
  begin
    Included := true;
    break;
  end;
end;

if not Included then
  Liste.Add('Eintrag 1');

Natürlich noch schön als Funktion/Methode verpacken und gut ist.