unit uMain;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, ExtCtrls, ComCtrls, Spin;
type
 TForm1 = class(TForm)
  Panel1: TPanel;
  mmText: TMemo;
  Label1: TLabel;
  seN: TSpinEdit;
  Label2: TLabel;
  btEncode: TButton;
  btDecode: TButton;
  procedure btEncodeClick(Sender: TObject);
 private
  { Private declarations }
  procedure Encode(bCode: boolean; n: integer); // Encode - ПРОЦЕДУРА
  // bCode - зашифровать/расшифровать
  // n - шаг смещения
 public
  { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.DFM}
// ПРОЦЕДУРА КОДИРОВАНИЯ
procedure TForm1.Encode(bCode: boolean; n: integer);
const
 sMsgRangeErr = 'Значение шага должно быть от %d до %d!';
 // Крайние символы для кодирования
 chBigFirstLetter: char = 'А';
 chBigLastLetter: char = 'Я';
 chFirstLetter: char = 'а';
 chLastLetter: char = 'я';
var
 iMinOrd: integer; // Код символа с наименьшим кодом
 iMaxOrd: integer; // Код символа с наибольшим кодом
 i: integer; // Для фикла
 iTempOrd: integer; // Код подставляемого символа
 ch: char; // Каждый символ текста
 s: string; // Преобразуемый текст
begin
 // Проверка шага на диапазон допустимых значений
 if (n > Ord(chBigLastLetter) - Ord(chBigFirstLetter)) or (n < 1) then
 begin
  MessageDlg(Format(sMsgRangeErr, [1, Ord(chBigLastLetter) - Ord(chBigFirstLetter)]), mtError, [mbOk], 0);
  Exit;
 end;
 s := Trim(mmText.Text);
 if s <> '' then // Если есть текст
  for i := 1 to Length(s) do // Проходит каждый символ
  begin
  ch := s[i];
  // Если очередной символ нужно кодировать
  if ch in [chBigFirstLetter .. chBigLastLetter] then // Заглавные буквы
  begin
  iMinOrd := Ord(chBigFirstLetter);
  iMaxOrd := Ord(chBigLastLetter);
  end
  else
  if ch in [chFirstLetter .. chLastLetter] then // Строчные буквы
  begin
  iMinOrd := Ord(chFirstLetter);
  iMaxOrd := Ord(chLastLetter);
  end
  else // Символ кодировать не нужно
  continue;
  if bCode then // Закодировать
  begin
  iTempOrd := Ord(ch) + n; // Получаем потенциальную позицию
  if iMaxOrd - iTempOrd < 0 then // Если символ зашел за границу предельного
  ch := Chr(iMinOrd + abs(iMaxOrd - iTempOrd) - 1) // Возьмем символ с другого конца круга
  else // Если нет..
  ch := chr(iTempOrd); //..все нормально
  end
  else // Раскодировать
  begin
  iTempOrd := Ord(ch) - n; // Получаем потенциальную позицию
  if iMinOrd - iTempOrd > 0 then // Если символ зашел за границу предельного
  ch := Chr(iMaxOrd - (iMinOrd - iTempOrd - 1)) // Возьмем символ с другого конца круга
  else // Если нет..
  ch := chr(iTempOrd); //..все нормально
  end;
  s[i] := ch;
  end;
 mmText.Text := s;
end;
procedure TForm1.btEncodeClick(Sender: TObject);
begin
 Encode(boolean((Sender as TButton).Tag), seN.Value);
end;
end.