Шифрование RSA. В результате шифровки присутствуют нечитаемые символы

procedure TForm1.sButton8Click(Sender: TObject);
 
var c: Byte;
  f : File;
  Buffer : Array[1..65535] Of Byte;
begin
sMemo2.Clear;
Base10StringToFGInt(sEdit1.Text,e);
Base10StringToFGInt(sEdit2.Text,n);
txt:= sMemo1.Lines.Text;
RSAEncrypt(txt,e,n,txt);
Clipboard.AsText:= txt;
logres:='';
for i:= 1 to Length(txt) do
begin
Char(c):= txt[i];
Buffer[i]:=c;
sMemo2.Lines.Add(IntToStr(c));
logres:= logres + ' ' + IntToStr(c);
end;
  //Запись данных в бинарный файл...
  AssignFile(f,ExtractFilePath(Application.ExeName)+'cript.bin');
  Rewrite(f,1);
  BlockWrite(f,Buffer[1],Length(txt),i);
  CloseFile(f);
sButton10.Enabled:= true;
end;

procedure TForm1.sButton1Click(Sender: TObject);
var  i: integer;
     c: char;
     f : File;
  Buffer : Array[1..65535] Of Byte;
begin
  //Загрузить криптотекст из бинарного файла
  AssignFile(f,ExtractFilePath(Application.ExeName)+'cript.bin');
  Reset(f,1);
  SetLength(txt,FileSize(f));
  BlockRead(f,Buffer,Length(txt),i);
  CloseFile(f);
  For i:=1 To Length(txt) Do
  txt[i]:=Char(Buffer[i]);
 
if ((sEdit1.Text = '') or (sEdit2.Text = '')) then
ShowMessage('Нет данных.')
else
begin
{
for i := 0 to sMemo1.Lines.Count - 1 do
begin
Byte(c):= StrToInt(sMemo1.Lines[i]);
txt2:= txt2 + '(РАЗДЕЛИТЕЛЬ)' + c;
end;
txt2:= StringReplace(txt2, '(РАЗДЕЛИТЕЛЬ)', '',[rfReplaceAll, rfIgnoreCase]);
txt:= txt2;
}
Base10StringToFGInt(sEdit1.Text,d);
Base10StringToFGInt(sEdit2.Text,n);
RSADecrypt(txt, d, n, Nilgint, Nilgint, Nilgint, Nilgint, txt);
sMemo2.Lines.Clear;
sMemo2.Lines.Text:= txt;
sButton2.Enabled:= true;
end;
txt3:= txt2;
txt:= '';
txt2:= '';
end;