var
 hProv: HCRYPTPROV;
 hash: HCRYPTHASH;
 key: HCRYPTKEY;
 FOrig: File;
 Data: PByte;
 d, dw: DWORD;
begin
//Шифрование
 CryptAcquireContextW(@hProv, nil, nil, PROV_RSA_FULL,
   CRYPT_VERIFYCONTEXT);
 CryptCreateHash(hProv, CALG_SHA, 0, 0, @hash);
 CryptHashData(hash, @aPassw[1], Length(aPassw), 0);
 CryptDeriveKey(hProv, CALG_RC4, hash, 0, @key);
 FTempStream := TMemoryStream.Create;
 AssignFile(FOrig, FOrigFileName);
 Reset(FOrig, 1);
 GetMem(Data, 512);
 try
   while not EOF(FOrig) do
   begin
     BlockRead(FOrig, Data^, 512, d);
     if CryptEncrypt(Key, 0, EOF(FOrig){false}, 0, data, @d, d) = true then
       FTempStream.Write(data^, d);
   end;
 finally
   FreeMem(Data, 512);
 end;
 CloseFile(FOrig);
 FTempSTream.Seek(0, soFromBeginning);
 RE1.Lines.LoadFromStream(FTempStream);
 FTempStream.Free;

// Дешифрование
// все тоже самое, только
 if CryptDecrypt(Key, 0, EOF(FOrig), 0, data, @d) = true then
   FTempStream.WriteBuffer(data^, d);