مشكل في نسخ ملف نصي إلى TListBox

[zmx123]

كود :

var s:TStringList; f:string; begin s:=TStringList.Create; f:=ExtractFilePath(Application.ExeName)+ '\test.txt'; s.LoadFromFile(f); lst1.Items.Add(s.Strings[2]); lst1.Items.Add(s.Strings[3]); s.Free; end;