Backup record disappear from tablegrid

var
AppPath: string;
Lines: TStrings;
Line: string;


//restore
procedure Form1_TableGrid1_OnCellDoubleClick (Sender: string; ACol, ARow: Integer);
var
bf : string ;
begin
    CreateDir(AppPath+'DatabaseUserRestore');
    bf := SQLExecute('Select backup_filename From backuplog Where id ='+
    inttostr(Form1.TableGrid1.dbItemID));
    begin
        DecompressFiles(
        AppPath+'DatabaseUserBackup\'+bf,  //From File
        AppPath+'DatabaseUserRestore\');    //To Folder
        ShowMessage('OK Restore File is "'+ 'sqlite.db'+'" From File "'+bf+'"'+
        ' At DatabaseUserRestore') ;
    end;
end;


//reset log
procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
backup_file_list : string ;
i,c: integer;
sl: TStringList;
begin
    SQLExecute('Delete From backuplog' );
    backup_file_list := AppPath+'DatabaseUserBackup\'+'backup_file_list.ini';
    Lines := TStringList.Create;
    Lines.Add(
    ReplaceStr(
    GetFilesList(AppPath+'DatabaseUserBackup','*.Zlib')
    ,AppPath+'DatabaseUserBackup\','')
    );
    Lines.SaveToFile(backup_file_list);
    Lines.Free;
    sl := TStringList.Create;
    sl.LoadFromFile(AppPath+'DatabaseUserBackup\'+'backup_file_list.ini') ;
    c := sl.Count - 1;
    for i := 0 to c do
    begin
        SQLExecute(
        'insert into backuplog(backup_filename,backup_datetime) values'+
        '("'+sl[i]+'",'+
        'substr("'+sl[i]+'",10,11)||'+
        'substr("'+sl[i]+'",21,2)||":"||'+
        'substr("'+sl[i]+'",24,2)||":"||'+
        'substr("'+sl[i]+'",27,2)||"."||'+
        'substr("'+sl[i]+'",30,3)'+')');
    end;
    Form1.TableGrid1.dbUpdate ;
    Form1.TableGrid1.BestFitColumns() ;
end;


//backup
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
stamp_date_time_file : string  ;
begin
    CreateDir(AppPath+'DatabaseUserBackup') ;
    stamp_date_time_file := FormatDateTime('yyyy-mm-dd hh-mm-ss-zzz', now)+'.Zlib' ;
    CopyFile(AppPath+'sqlite.db', AppPath+'DatabaseUserBackup/' + 'sqlite.db');
    CompressFile(AppPath+'DatabaseUserBackup\sqlite.db', AppPath+'DatabaseUserBackup\sqlite.db'+stamp_date_time_file);
    DeleteFile(AppPath+'DatabaseUserBackup\sqlite.db');
    SQLExecute(
    'insert into backuplog(backup_filename,backup_datetime) values'+
    '("sqlite.db'+stamp_date_time_file+'","'+FormatDateTime('yyyy-mm-dd hh:mm:ss.zzz', now)+'")'
    ) ;
    Form1.TableGrid1.dbUpdate ;
    Form1.TableGrid1.BestFitColumns() ;
    ShowMessage('OK Backup Clear! File is "'+ 'sqlite.db'+' '+stamp_date_time_file+'"') ;
end;
begin
    AppPath := ExtractFilePath(Application.ExeName);
    end.