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

Vertreter.First;
       while not Vertreter.Eof do
             Vertreter.Delete;
             for i:=0 to slist.Count-1 do
             begin
                Vertreter.Insert;
                Vertreter.FieldByName('VertrNr').AsInteger:=i+1;
                Vertreter.FieldByName('Matchcode').AsString:=slist.Strings[i];
                Vertreter.FieldByName('Name1').AsString:=slist.Strings[i];
                Vertreter.Post;
             end;