Обработка исключений TFileStream

Source:= TFileStream.Create(FileList.Strings[0],fmOpenRead); // Здесь берём файл из FileList
Name:=FileList.Strings[0]+'.mod'; // Новое имя файла
{Ещё немного кода}
Dest:= TFileStream.Create(Name,fmCreate); // Создание нового файла
{Ещё немного кода}

procedure TForm1.btn1Click(Sender: TObject);
 
var
  Cipher: TDCP_rc4;
  Name: string;
  Source, Dest: TFileStream;
 
begin
 
While FileList.Count<>0 do begin
 
try
Source:= TFileStream.Create(FileList.Strings[0],fmOpenRead or fmShareDenyNone); // fmShareDenyNone частично помогло
except
on EFOpenError do FileList.Delete(0); end;
 
try
Name:=FileList.Strings[0]+'.mod'; // Новое имя файла
 
Dest:= TFileStream.Create(Name,fmCreate or fmShareDenyWrite); // с fmShareDenyWrite разницы не заметил
 
except
on EFCreateError do FileList.Delete(0); end;
 
Cipher:= TDCP_rc4.Create(Self);
Cipher.InitStr(KeyStr,TDCP_sha1);
Cipher.EncryptStream(Source,Dest,Source.Size);
Cipher.Burn;
Cipher.Free;
Dest.Free;
Source.Free;
DeleteFile(FileList.Strings[0]);
FileList.Delete(0);
end;
 
end;

Cipher:= TDCP_rc4.Create(Self);
Cipher.InitStr(KeyStr,TDCP_sha1);
Cipher.EncryptStream(Source,Dest,Source.Size);
Cipher.Burn;
Cipher.Free;
Dest.Free;
Source.Free;

function TDCP_cipher.EncryptStream(InStream, OutStream: TStream; Size: longword): longword;
var
  Buffer: array[0..8191] of byte;
  i, Read: longword;
begin
  Result:= 0;
  for i:= 1 to (Size div Sizeof(Buffer)) do
  begin
    Read:= InStream.Read(Buffer,Sizeof(Buffer));
    Inc(Result,Read);
    Encrypt(Buffer,Buffer,Read);
    try
    OutStream.Write(Buffer,Read);
    except
on e:exception do Burn; end;
  end;
  if (Size mod Sizeof(Buffer))<> 0 then
  begin
    Read:= InStream.Read(Buffer,Size mod Sizeof(Buffer));
    Inc(Result,Read);
    Encrypt(Buffer,Buffer,Read);
    try
    OutStream.Write(Buffer,Read);
    except
on e:exception do Burn; end;
  end;
end;

Cipher:= TDCP_rc4.Create(Self);
Try
 Cipher.InitStr(KeyStr,TDCP_sha1);
 Cipher.EncryptStream(Source,Dest,Source.Size);
 Cipher.Burn;
finally
 if  Cipher<>nil then Cipher.Free;
 if  Dest<>nil then Dest.Free;
 if  Source<>nil then Source.Free;
end;

try
Source:= TFileStream.Create(FileList.Strings[0],fmOpenRead or fmShareDenyNone);  // Чтение оригинального файла
except
FileList.Delete(0);
Continue;
end;         // Если прочитать не удалось - удаляем из списка и переходим к началу цикла
 
 
Name:=FileList.Strings[0]+'.mod'; // Новое имя файла
 
try
Dest:= TFileStream.Create(Name,fmCreate or fmShareDenyWrite);  // Запись мод. файла
except
FileList.Delete(0);
Continue;
end;      // Если записать не удалось - удаляем из списка и переходим к началу цикла