It works well with your script

But, how should be this script if I want to let users choose their own folder to realise this backup
I mean by way of function OpenDialog that could be created  on runing
with  TOpenDialog.Create(self); ?

Is it possible ?

Thanks for your answer

Jean B.

you forgot to write Begin and End after Then

procedure Form1_btBackup_OnClick (Sender: string; var Cancel: boolean);
begin
          if 7 = MessageDlg('Create / Update the SqLiteDB? Best choice is every day on the end of the shift back it up.', mtConfirmation, mbYes + mbNo, 0) then
          begin
                Cancel := True;  // I think it is not necessary
                CopyFile('sqlite.db', 'Backup\sqlite.db'); // Application path
                //CopyFile('sqlite.db', 'I:\TP2014\Backup\sqlite.db'); // Reserve path
                //P:\C\CF\CF3\TEST GA en MB\TP2014\Backup\sqlite.db  // Backup path workplace
          end;
end;

procedure Form1_btBackup_OnClick (Sender: string; var Cancel: boolean);
begin
          if 7 = MessageDlg('Create / Update the SqLiteDB? Best choice is every day on the end of the shift back it up.', mtConfirmation, mbYes + mbNo, 0) then
          Cancel := True;
          CopyFile('sqlite.db', 'Backup\sqlite.db'); // Application path
       //   CopyFile('sqlite.db', 'I:\TP2014\Backup\sqlite.db'); // Reserve path
       //   P:\C\CF\CF3\TEST GA en MB\TP2014\Backup\sqlite.db  // Backup path workplace
end;

Thanks

if the file sqlite.db in the project folder, also you should create folder "Backup"

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
   CopyFile('sqlite.db', 'Backup\sqlite.db');
end;