1:
2:
3:
4:
5:
6:

    
    liste := Tstrings.Create;
    liste.append('Nr');
    liste.append('Name');
    liste.append('Geschlecht');
    liste.append('Herkunft');                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  liste: TStrings;
begin
  liste := TStringList.Create;
  liste.Add('Nr');
  liste.Add('Name');
  liste.Add('Geschlecht');
  liste.Add('Herkunft');
end;