Помогите пожалуйста с копированием файла

[==Spider==]

Добрый день\утро\вечер\ночь вобщем у меня следующая проблема у меня в ListBox-е есть некий список файлов, которые нужно сперва удалить, а потом на их место скопировать новые помогите пожалуйста. Вот собственно код

for i:=ListBox1.Items.Count-1 downto 0 do begin
      DeleteFile(ListBox1.Items.Strings[i]);
      CopyFile('1.txt',ListBox1.Items.Strings[i],true)
end;

а это ошыбка: [error] Unit1.pas(87): Incompatible types: ‘String’ and ‘PAnsiChar’

Помогите пожалуйста! Заранее очень благодарен.

[D-mon]

Используй PChar() на переменную на которую ругается.

[Stilet]

 DeleteFile(pchar(ListBox1.Items.Strings[i]));   
      CopyFile('1.txt',pchar(ListBox1.Items[i]),true)