Лист бокс работа со списком

[mitiay]

Уважаемые форумчане,столкнулся с проблемой

var i: integer;
begin
for i := 0 to listbox1.Items.count - 1 do
  begin
Movefile(PAnsiChar(listbox1.Items[listbox1.ItemIndex]),'D:\report\');

Делаю вот так выходит ошибка:

raised exception class EstringlistError with message 'List index out bounds(-1).Process stopped

В чем проблема?

[ZuBy]

var i: integer;
begin
for i := 0 to listbox1.Items.count - 1 do
  begin
Movefile(PAnsiChar(listbox1.Items[i]),'D:\report\');

[mitiay]

Сообщение от ZuBy

var i: integer;
begin
for i := 0 to listbox1.Items.count - 1 do
  begin
Movefile(PAnsiChar(listbox1.Items[i]),'D:\report\');

Ошибки нет но не переместил(((

[Аватар]

но не переместил

И не переместит, пока во 2-ом параметре не будет имени файла

[mitiay]

Сообщение от Аватар

И не переместит, пока во 2-ом параметре не будет имени файла

А как его выдернуть с listbox'a ?

[Аватар]

'D:\report\'+ExtractFileName(listbox1.Items[i])