Шифрование через RichViewEdit

[Ko$]

Здравствуйте помогите сделать шифрование текста, или исходник может есть какой нибудь у вас? Задача следующая нужно сделать шифрование текста с картинками, картинки можно не трогать, главное текст. Процедура шифрования ниже, это набросок по сути незнаю как вытащить текст из RichViewEdit. Помогите пожалуйста 29го защита курсача

//----------------------------Процедура шифрования------------------------------
procedure Code(var text: string; password: string;
  decode: boolean);
var
  i, PasswordLength: integer;
  sign: shortint;
begin
PasswordLength := length(password);//получаем длину  password
  if PasswordLength = 0 then Exit;  //если длина пароля = 0 то выходим
  if decode                         //если верно делаем
    then sign := -1                 //присваиваем  sign := -1
    else sign := 1;                 //если не верно, присваиваем   sign := 1.
  for i := 1 to Length(text) do      //от 1 до числа равного длине text
text[i] := chr(ord(text[i]) + sign *//i-ный символ TEXT равен получить код символа text[i], прибавить к нему
ord(password[i mod PasswordLength + 1]));// sign, умножить на код символа password[i mod PasswordLength + 1], и
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

RichView1.Clear;

RichView1.LoadRTF('C:\Users\Костя\Desktop\LFFFF\Основные понятия.rtf');
RichView1.Format;

RichViewEdit1.LoadRTF('C:\Users\Костя\Desktop\LFFFF\Основные понятия.rtf');
RichViewEdit1.Format;
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
RichViewEdit1.SaveRTF( 'C:\Users\Костя\Desktop\LFFFF\Основные понятия.rtf', False);
end;
end.

Пример на Мемо(нужно так же только вместо мемо RichViewEdit ):

unit Unit1;               //объявление модуля 

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;          //модули Delphi

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;                      // Объявление классов и интерфейсов

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  s: string;

procedure Code(var text: string; password: string;
  decode: boolean);
var
  i, PasswordLength: integer;
  sign: shortint;
begin
  PasswordLength := length(password);
  if PasswordLength = 0 then Exit;
  if decode
    then sign := -1
    else sign := 1;
  for i := 1 to Length(text) do
    text[i] := chr(ord(text[i]) + sign *
      ord(password[i mod PasswordLength + 1]));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
s := Memo1.Text;
  code(s, Edit1.Text, false);
  Memo1.Text := s;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
  code(s, Edit1.Text, true);
  Memo1.Text := s;

end;

end.