Delphi, Not enough actual parameters, шифрование

[Flaina]

Задача на Шифрование методом Аффинных подстановок Цезаря.
Есть 2 функции готовые - для шифровки и расшифровки.
Выдает 2 ошибки, когда пытаешься использовать эти функции.
Спасибо заранее за помощь!
Тут ошибка

outString:=Affinna_Crypt(InString;a;b;93);

Весь код

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    OpenEdt: TEdit;
    SaveEdt: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure OpenBtnClick(Sender: TObject);
    procedure SaveBtnClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  inFile, outFile : TextFile;
  a, b, i :integer;
  inpStr, outStr : array [0..255] of char;
 
implementation
 
{$R *.dfm}
 
      //ФУНКЦИЯ ШИФРОВКИ
 
function Affinna_Crypt(s:String;a:integer;b:integer;m:integer):string;
const
  SizeA = 93; //Размер алфавита
//Алфавит
RusA = ' !%()*+,-./0123456789:;<=>?^№абвгдежзийклмнопрстуфхцчшщъыьэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; 
var i, P,t:integer;
    temp:String;
begin
temp:='';
//удаление символов сообщения, не входящих в алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA);      
   t:=((P*a+b) mod m);
   s[i]:=RusA[t];
   end;
   Result:=s;
end;
                 //ФУНКЦИЯ РАСШИФРОВКИ
 
 
function Affinna_DeCrypt(s:String;a:integer;b:integer):string;
const
  SizeA = 93; //Размер алфавита
  RusA = ' !%()*+,-./0123456789:;<=>?^№абвгдежзийклмнопрстуфхцчшщъыьэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; //Алфавит
var i, P,m:integer;
    temp:String;
begin
m:=93;
temp:='';
//удаление символов сообщения, не входящих в алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA);       //ok
   while ((P-b) mod a)<>0 do
   P:=P+m;
   s[i]:=RusA[(P-b) div a];
 
   end;
   Result:=s;
end;
 
 
 
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
s, inString, outString : String;
m:integer;
begin
a := StrToInt(Edit1.Text);
  b := StrToInt(Edit2.Text);
  m:=93;
 
  AssignFile(inFile, OpenEdt.Text);           //
  AssignFile(outFile, SaveEdt.Text);          //
                                              // привязка файлов
  Reset(inFile);                              //
  Rewrite(outFile);                           //
 
  Read(inFile,inString);
  StrPCopy(inpStr,inString);
 
   outString:=Affinna_Crypt(InString;a;b;93);
   write(outFile,outString);
 
end;
 
 
 
 
procedure TForm1.OpenBtnClick(Sender: TObject);
begin
  If OpenDialog.Execute Then OpenEdt.Text := OpenDialog.FileName;
end;
 
procedure TForm1.SaveBtnClick(Sender: TObject);
begin
  If SaveDialog.Execute Then SaveEdt.Text := SaveDialog.FileName;
end;
 
 
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
s, inString, outString : String;
begin
a := StrToInt(Edit1.Text);
  b := StrToInt(Edit2.Text);
 
  AssignFile(inFile, OpenEdt.Text);           //
  AssignFile(outFile, SaveEdt.Text);          //
                                              // привязка файлов
  Reset(inFile);                              //
  Rewrite(outFile);                           //
 
  Read(inFile,inString);
  StrPCopy(inpStr,inString);
 
   outString:=Affinna_DeCrypt(InString;a;b);
   write(outFile,outString);
 
end;
 
end.

[Hacker19_90]

outString:=Affinna_Crypt(InString;a;b;93);

параметры через запятую пишут, когда функцию вызывают!

[Flaina]

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

параметры через запятую пишут, когда функцию вызывают!

Спасибо, совсем что-то я...
Выходной файл пустой, почему символы не записываются в файл, понять не могу?
Помогите пожалуйста

[whatever]

Close(outFile) забыл