Почему не работает код?

[Kashp]

Кидаю на форму Edit и кнопку. Для события нажатия кнопку пишу :

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:=Edit1.Text;
CopyFile(PChar('D:\1.txt'), PChar(s), false);
end;

Вот получается, что если после запуска в поле Edit ввести путь к любой папке, то в указанную папку должен скопироваться 1.txt.
Объясните мне, неграмотному, почему этот код не работает? Хотя без проблем компилируется.

[still_alive]

Потому что во втором параметре надо передавать путь вместе с именем нового файла, а ты передаешь только путь к директории...

CopyFile(PChar('C:\1.txt'), PChar(s + '\1.txt'), false);

[Alex21]

В Edit вводим путь + Имя файла

[Kashp]

Большое вам человеческое СПАСИБО!