var
procedure TForm1.Button1Click(Sender: TObject);
var
 key:TWordTriple;
begin
key[0]:=1; key[1]:=2; key[2]:=3;
FileEncrypt('C:\123.exe','C:\new123.exe',key);

{FileDecrypt('C:\new123.exe','C:\new123.exe',key,true);}
end;