Шифрование сразу всего текстового файла, а не фразы из Edit

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtDlgs;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    OpenTextFileDialog1: TOpenTextFileDialog;
    Label1: TLabel;
    SaveTextFileDialog1: TSaveTextFileDialog;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
    const alfa:array[0..65] of char = ('А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й', 'К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я', 'а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы', 'ь','э','ю','я');
  end;
 
var
  Form1: TForm1;
   a22:integer;
 
implementation
 
{$R *.dfm}
 
 
{$APPTYPE CONSOLE}
 
uses
 
 
StrUtils; //!!
 
var
 
F: Text; //входящий файл
 
F1: TextFile; //результат (файл с переводом)
 
ToDo, FileName, PassW, Line, TranslatedFile: string;
a:array[0..65] of char;
  i, j, k: integer;
  s, b :string;
 
procedure TForm1.Button1Click(Sender: TObject);
    //if OpenTextFileDialog1.Execute then FileName:= OpenTextFileDialog1.FileName;
   // TranslatedFile:= FileName+'u';
    //  AssignFile(F, FileName);
    //  AssignFile(F1, TranslatedFile);
     //  Rewrite(F1);
     //  Reset(F);
   //    CloseFile(F);
    //  CloseFile(F1);
      //while not EOF(F) do
  begin
   For i:=0 to 65 do
  begin
    a[i]:= alfa[(i+1) mod 66];
  end;
 
   // шифр
    k := StrToInt(Edit1.Text);//StrToInt(Edit1.Text); OpenTextFileDialog1.FileName
    s := Text;//Edit2.Text;
    OpenTextFileDialog1.Execute; FileName:= OpenTextFileDialog1.FileName;
    for i := 1 to length(s) do
      for j := 0 to 65 do
        if s[i] = a[j] then b := b+a[(j+(k-1)) mod 66];
     F1:= b;
     b:='';
  end;
 
procedure TForm1.Button2Click(Sender: TObject);
//var
 
begin
   For i:=0 to 65 do
  begin
    a[i]:= alfa[(i+1) mod 66];
  end;
 
   // шифр
    k := StrToInt(Edit1.Text);
    s := Text;
    for i := 1 to length(s) do
      for j := 0 to 65 do
        if s[i] = a[j] then b := b+a[(j-(k-1)) mod 66];
    F1 := b;
    b := '';
end; //конец расшифровки
end.

  private
    { Private declarations }
  public
     function Cesar(Key:Integer; S:String; Decode:Boolean):String;
    { Public declarations }
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
function TForm1.Cesar(Key: Integer; S: String; Decode: Boolean): String;
var
  i:Integer;
  st:String;
begin
  st:=S;
  if Decode then Key:=-Key;
  for i:=1 to Length(S) do
    st[i]:=Chr((Ord(S[i])+Key));
  Result:=st;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i,Key:Integer;
begin
  Key:=StrToInt(Edit1.Text); //Ключ вводим в Edit1
  for i:=0 to Memo1.Lines.Count-1 do
    Memo1.Lines[i]:=Cesar(Key,Memo1.Lines[i],False);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i,Key:Integer;
begin
  Key:=StrToInt(Edit1.Text);
  for i:=0 to Memo1.Lines.Count-1 do
    Memo1.Lines[i]:=Cesar(Key,Memo1.Lines[i],True);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('test.txt');
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('result.txt');
end;
 
end.

 public
     function Cesar(Key:Integer; S:String; Decode:Boolean):String;
    { Public declarations }
 
  end;
 
var
  Form1: TForm1;
  StrL1:TStringList;
   FileName: string;
  implementation
 
{$R *.dfm}
 
{ TForm1 }
 
function TForm1.Cesar(Key: Integer; S: String; Decode: Boolean): String;
var
  i:Integer;
  st:String;
begin
  st:=S;
  if Decode then Key:=-Key;
  for i:=1 to Length(S) do
    st[i]:=Chr((Ord(S[i])+Key));
  Result:=st;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i,Key:Integer;
begin
 
   if OpenDialog1.Execute then begin
      StrL1.LoadFromFile(OpenDialog1.FileName);
 
  Key:=StrToInt(Edit1.Text);
  for i:=0 to StrL1.Count-1 do
    StrL1.Strings[i]:=Cesar(Key,StrL1.Strings[i],True);
            end;
    end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
StrL1:=TStringList.Create;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var
  i,Key:Integer;
begin
 
if OpenDialog1.Execute then begin
      StrL1.LoadFromFile(OpenDialog1.FileName);
 
  Key:=StrToInt(Edit1.Text); //Êëþ÷ ââîäèì â Edit1
  for i:=0 to StrL1.Count-1 do
  StrL1.Strings[i]:=Cesar(Key,StrL1.Strings[i],False);
 
        end;
 
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
 
if SaveDialog1.Execute then begin
StrL1.SaveToFile(SaveDialog1.FileName);
 end;
end;
 
end.