1:
2:
3:
4:
5:

for a := 0 to DatenList.Count-1 do
begin
  DatenList.add(Table1.Tablename);
  DatenList.SaveToFile(ChangeFileExt(Application.ExeName,'.log'));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if not (StrIsInList(Str)) then Liste.add...

function StrIsInList(Str:String):Boolean;
var i:integer;
begin
  Result:=False; 
  for i:=0 to List.Count-1 do
    if List[i]=Str then 
    begin
      Result:=True;
      exit;
    end;
end;					

1:
2:

Liste.Sorted:=True; 
Liste.duplicates:=dupignore;					

1:
2:

TStringlist(Datenlist).Sorted:=True;
TStringlist(Datenlist).Duplicates:=DupIgnore;