procedure DeleteThisFile(const FileName: string); begin if not DeleteFile(FileName) then ShowMessage('Ce fichier n''existe pas'); end;