1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var pfadlist: TStringList;

OnCreate: pfadlist:=TStringList.create;

procedure AddHinzu(name,pfad: string);
begin
  liste.add(name);
  pfadlist.add(pfad);
end;

procedure GebePfad(Index: Integer);
begin
  showmessage(pfadlist[index]);
end;

procedure DelEtr(Index: integer);
begin  
  liste.delete(index);
  pfadlist.delete(index);
end;					

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

Type
  pPathItem = ^tPathItem;
  tPathItem = Record
    Name: String;
    Path: String;
  End;					

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

Var
  NewPathItem: pPathItem;
Begin
  New (NewPathItem);

  With NewPathItem^ Do
    Begin
      Name := 'Name';
      Path := 'Path';
    End;

  Liste.AddObject ('String', NewPathItem);
End;					

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

Var
  PathItem: tPathItem;
Begin
  PathItem := pPahtItem (Liste.Object [0])^;
  Edit1.Caption := PathItem.Name;
  Edit2.Caption := PathItem.Path;
End;