var sl : TStrings; begin sl := TStringList.Create; sl.LoadFromFile('....'); ListBox1.Items.Assign(sl);