[DUVIDA]sobre modificador de script

[iur5 1]

Olha aminah dúvida é essa eu ponho esse código:

procedure TForm1.Button1Click(Sender: TObject);

begin

if not CopyFile(PChar('Full-hacks\fight_stg'), PChar('C:\Level Up! Games\Grand Chase Season 2'), false) then

begin

ShowMessage('Erro ao Modificar,Tente Novamente!') end

else

ShowMessage(' Ativado com Sucesso!');

end;

end

 

Mas quando vou ativar o script sempre da erro.

ALguem pode me ajudar:(.

[Surfistinha£ 20]

procedure TForm1.Button4Click(Sender: TObject);

var

DirFile,ScriptFile: String;

begin

if Edit1.Enabled=False then begin

DeleteFile(Edit1.Text+ScriptFile);

DirFile:=Edit1.Text+'\Stage\fight_stg.kom';

ScriptFile:='fight_stg.kom';

if CopyFile(PChar(ScriptFile),PChar(DirFile),false) then

ShowMessage('Arquivo copiado com sucesso')

else

Application.MessageBox('O arquivo não foi copiado!'+#10#13+

'Verifique se as configurações estão corretas.','ERROR!',MB_IConerror);

end

else

begin

ShowMessage('Salve o diretório antes de ativar o script!!!');

end;

end;