Шифрование текста по методу Цезаря с лозунгом (с ключевым словом)

[SASHA19]

Помогите найти программу написанную в Delphi 7 "Шифрование текста по методу Цезаря с лозунгом (с ключивым словом)"
я понимаю что она легкая ну сам написать не могу помогите прошу она мне очень нада!или у кого есть в наличии скинте мне в долгу не не останусь!?или кто в состоянии напишите сами прошу!!!пожалуйста!?

[maladoy]

const
  n = 3;

function CaesarEncipher(toCode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toCode) do begin
    T := (Ord(toCode[ i ]) + n);
    if T >= 256 then dec(T, 256);
    toCode[ i ] := Chr(T);
  end;
  CaesarEncipher := toCode;
end;

function CaesarDecipher(toDecode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toDecode) do begin
    T := (Ord(toDecode[ i ]) - n);
    if T < 0 then Inc(T, 256);
    toDecode[ i ] := Chr(T);
  end;
  CaesarDecipher := toDecode;
end;

{ применение: }
var
  s: string;

begin
  s := CaesarEncipher('just a Caesar');
  writeln(s);
  writeln('s = ', CaesarDecipher(s));
end.

[SASHA19]

я вообще ни понимаю куда это вписывать((((((((((((((((((у меня ошибка и все((((((((((((((9помогите составте программу((((((((((((99прошу??????( (((((

[ner0]

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

я вообще ни понимаю куда это вписывать((((((((((((((((((у меня ошибка и все((((((((((((((9помогите составте программу((((((((((((99прошу??????( (((((

Что поделать когда нет мозгов..

function CaesarEncipher(toCode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toCode) do begin
    T := (Ord(toCode[ i ]) + 3);
    if T >= 256 then dec(T, 256);
    toCode[ i ] := Chr(T);
  end;
  CaesarEncipher := toCode;
end;

function CaesarDecipher(toDecode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toDecode) do begin
    T := (Ord(toDecode[ i ]) - 3);
    if T < 0 then Inc(T, 256);
    toDecode[ i ] := Chr(T);
  end;
  CaesarDecipher := toDecode;
end;

процедуры на клик поставь мыши и все..., Ну и конечно не забудь просто кинуть на форму 2 мемо и кнопки а то запутаешься еще через консоль лучше не объяснять сам по ходу дела разберешься, если желание есть....
ВО:
Memo2.Text := CaesarEncipher(Memo1.Text); // зашифровка
Memo2.Text := CaesarDecipher(Memo1.Text); // расшифровка