Update file Restoration

Procedure tform1.button3click (Sender: tobject );
VaR
Sfilename: string;
Sin: string;
Begin
Sin: = extractfilepath (application. exename) + 'Update. ini ';
Try
If fileexists (SIN) then
Begin
// File backup
Sfilename: = extractfilepath (application. exename) + 'Update ~ 1. ini ';
If fileexists (sfilename) then
Deletefile (sfilename );
Copyfile (pchar (SIN), pchar (sfilename), false); // copy a file
End;
Raise exception. Create ('dddd ');
Except
If fileexists (SIN) Then // Delete the current file
Deletefile (SIN );
Copyfile (pchar (sfilename), pchar (SIN), false); // restore
If fileexists (sfilename) Then // Delete the object
Deletefile (sfilename );
End;

End;