Шифрование/расшифрования текста из файла

[casio23]

пользуюсь компонентом IdDecoderXXE1, IdEncoderXXE1 из вкладки indy Misc, тест зашифровывает, а вот расшифровать не получается, некоторые латинские буквы проскакивают остальные остаются закорючками, в чем ошибка?

procedure TShifrov.Button2Click(Sender: TObject);
 begin
  Memo2.Clear;
  Memo2.Text:= IdEncoderXXE1.Encode(Memo1.Text); //Шифруем ..
end;

procedure TShifrov.Button4Click(Sender: TObject);
begin
 Memo1.Clear;
  Memo1.Text := IdDecoderXXE1.DecodeString(Memo2.Text);//расшифр.
end;

[casio23]

может посоветуете примеры шифр/расш текста из файла?

[XE5]

Сообщение от casio23

может посоветуете примеры шифр/расш текста из файла?

Uses IniFiles
...
procedure TForm1.Button1Click(Sender: TObject);
var Stream: TMemoryStream;
    ini: TIniFile;
begin
Stream := TMemoryStream.Create;
ini := TIniFile.Create('c:/1.ini');
Memo1.Lines.SaveToStream(Stream);
Stream.Position := 0;
ini.WriteBinaryStream('1','1',stream);
ini.Free;
stream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Stream: TMemoryStream;
    ini: TIniFile;
begin
Stream := TMemoryStream.Create;
ini := TIniFile.Create('c:/1.ini');
ini.ReadBinaryStream('1','1',Stream);
Stream.Position := 0;
Memo2.Lines.LoadFromStream(stream);
ini.Free;
stream.Free;
end;