[Rokuell]

Измени заголовок функции:

Код:

procedure GetFolderList(APath : String; AList : TStrings);

И передавай параметры вот так:

Код:

GetFolderList('C:\',ComboBox1.Items);