1:
2:

  Session.GetAliasNames(cbxAliasNames.Items);
  Session.GetDriverNames(cbxDriverNames.Items);                    

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

procedure TForm1.SessionListe_Alias_Driver(sender:Tobject);
var Liste1, Liste2 : TStringList;
     n             : integer;
begin //Session.GetAliasNames(cbxAliasNames.Items);  Session.GetDriverNames(cbxDriverNames.Items);
  Liste1 := TStringList.Create;
  try
    Session.GetAliasNames(Liste1);  // Liste mit Aliasnamen füllen, Benutzer kann auswählen
    for n := 0 to Liste1.Count - 1 do  ListBox11.Items.Add(Liste1[n]);
    finally  Liste1.Free;
  end;
  Liste2 := TStringList.Create;
  try
    Session.GetDriverNames(Liste2); // Liste mit Treibernamen füllen, wie oben
    for n := 0 to Liste2.Count - 1 do  ListBox12.Items.Add(Liste2[n]);
    finally    Liste2.Free;
  end;
end;