Здравствуйте, хочу скопировать файл:
Код:
procedure TForm1.btn2Click(Sender: TObject);
var
FName : string;
begin
if SaveDialog1.Execute then
begin
FName := SaveDialog1.FileName;
ShowMessage('Выбранный каталог = '+FName);
CopyFile(Pchar('data.ini'), Pchar(FName), True);
end;
В ShowMessage катулог и имя файла выводится верно, но ничего не копируется.
Подскажите пожалуйста, что не так?